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Automatismi domestici 

* * 

Ho sentito parlare di computer che comandano gli elettrodomestici o eseguono 
altre funzioni slmili Perchè non pubblicate qualcosa ìn merito? Come si può 
utilizzare la User Port dei Commodore 64? (Francesco Paolo Troia * Canino) 



Caro Francesco, 

mi fa molto piacere iniziare con la tua 
lettera questa nuova “rubrica” di Com- 
modore Computer Club che, sostituen- 
dosi al reditoriate, vuole trattare argo- 
menti generici, legati al mondo del l'in- 
formatica, ma non specifici dei computer 
Commodore. 

Il fascino di un calcolatore, soprattut- 
to per chi nc sente solo parlare, risiede 
nella possibilità di far compiere azioni 
faticose o pericolose ad apparecchiature 
automatizzate e, magari, di aspetto 
antropomorfo. 


La società delle immagini (vale a dire 
deprecabili sceneggiati TV, film di fanta- 
scienza di pessima fattura, canoni ani- 
mati giapponesi di infimo pattume cultu- 
rale) hanno inculcato nelle giovani menti 
che, con l'attuale tecnologia, è sufficien- 
te premere un bottone per proiettarsi nel 
paese delle meraviglie. 

Riparazioni immediate di astronavi 
pur se ridotte in pezzi, comunicazioni 
intercontinentali per mezzo di orologi da 
polso pi uri- firn zumali, possibilità di ese- 
guire qualsiasi funzione computerizzata 
con apparecchietti collegati 


niente col misterioso e taumaturgico 
^Calcolatore Centrale" (che forse ha 
preso il posto della Fata Turchina o del 
Gatto Mammone), 

Pochi si soffermano a paragonare i 
tempi tecnici delle avventure televisive 
con quelli realmente necessari, ad esem- 
pio, per la sostituzione di un semplice 
filtro del l'aria, per una telefonata in tele- 
selezione nelle ore di punta, o al tempo 
occórrente per fare la spesa. 

Veniamo ora a questo sospirato colle- 
gamento del personal computer con tut- 
to ciò che è collegabile. 
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Jl nostro pensiero è che sarebbe cor- 
retto partire dal presupposto che un'a- 
zione viene compiuta dall'uomo a patto 
di ritenerla necessaria ed utile. Se, ad 
.esempio, decido di andare in America a 
nuoto, è ben vero che risparmio i soldi 
deìlaereo, ma è anche vero che, sotto 
sotto, r impresa può presentare inconve- 
nienti superiori allo svantaggio di alleg- 
gerire it portafogli. 

Allo stesso modo, trattando un campo 
che più ci interessa da vicino, sono osti- 
natamente contrario alle rubriche telefo- 
niche computerizzate, almeno in am- 
biente domestico. Pensa infatti alle ope- 
razioni da compiere quando, desideran- 
do contattare telefonicamente un amico, 
decidi di seguire la via tradizionale oppu- 
re quella computerizzata' 

1* Metodo artigianal-tradizional- 
cartaceo: a / Apri Tagcndina alla lettera 
alfabetica interessata, bf Rintracci il nu- 
mero. c/ Telefoni. Tempo medio trascor- 
so dall'inizio: da 12 a 24 secondi, 

2- Metodo ad alto contenuto tecnologico 
(tp receduta computerizzata di tratta- 
mento informatico - digitale di informa- 
zioni memorizzate elettronicamente): a / 
Accendi il televisore, bf Accendi il com- 
puter. c f Introduci il nastro programma e 
lo carichi, df Introduci il nastro dati e lo 
leggi, e/ Digiti il nominativo e leggi il 
numero sul video, (f Telefoni prima di 
addormentarti. Tempo medio trascorso 
dairinizio: da 5 a 12 minuti primi. 

Le agende telefoniche computerizzate 
servono, dunque, solo alle telefoniate di 
aziende per le quali, effettivamente, il 
computer rappresenta un valido stru- 
mento di lavoro specialmente se è il com- 
puter stesso a formare il numero deside- 
rato e ripete il tentativo nel caso risulti 
occupato. 

Pensa ora al collegamento del Com- 
modore 64 con la lavatrice o la lavastovi- 
glie di casa tua. A parte il fatto che devi 
costruire un apparecchio che colleghi il 
computer con Teleitrodomestico, tieni 
presente che non si può far altro che 
accendere, spegnere, oppure, nel miglio- 
re dei casi, scegliere il “programma 11 del- 
la lavatrice. Non si può pretendere, al 
livello attuale della tecnologia, che un 
computer pensi anche a trasferire gli in- 
dumenti dal cesto della biancheria spor- 
ca al cestello delt’eiettrodomestico. Ma 
anche se così fosse pensa, a quanti servo- 
meccanismi sarebbero necessari per 
compiere Toperazione descritta! E tutto 
questo solo per evitare la fatica di un 
semplice trasferimento di panni sporchi. 

Con questo vogliamo solo far riflettere 
sul fatto che alcune notizie di automati- 
smi che fanno tanto scalpore, sono in 


realtà et tinte re baggianate che denotano 
pericolose avvisaglie di pazzia in coloro 
che le hanno ideate. 

Sì dice che, grazie al computer, sarà 
possìbile programmare vìa telefono tutti 
gli elettrodomestici soprattutto nelle 
' seconde case", utilizzate, normalmen- 
te. nei periodi limitati del week-end. 

Questa notìzia ci trova sostanzialmen- 
te d'accordo per ciò che riguarda i rispar- 
mi energetici possìbili per il riscaldamen- 
to. E’ infatti inutile tener caldo un appar- 
tamento nei periodi in cui non viene uti- 
lizzato. Un comando inviato per telefo- 
no prima della partenza è indubbiamente 
una gran comodità per coloro che posso- 
no trovare, al loro arrivo, un ambiente 
riscaldato d'inverno (o raffreddato 
d’estate). 

Ma è proprio necessario inviare un co 
mando anche per azionare la Lavapiatti 
prima che gli inquilini arrivino? Dobbia- 
mo/orse pensare che nel cestello ci sono, 
il venerdì sera, ì piatti sporchi della do- 
menica precedente? In questo casosi fa- 
rebbe la figura degli zozzoni oltre che 
rischiare di trovare odorini di cibo mar- 
cio diffusi nel già angusto monolocale! 

Analogamente, è inutile computeriz- 
zare * l a distanza" il frullatore, l asciuga- 
capelli o la lampada del comodino. Nei 
luoghi di villeggiatura, se non avrete nul- 
la da fare, potrete almeno divertirvi ad 
accendere e spegnere innocenti 
interruttori. 

L'automazione domestica, in conci u 
siune, sarà considerata con la massima 
attenzione il giorno in cui sarà possibile 
ideare un marchingegno in grado di stira- 
re o rassettare la casa, operazioni la cut 
attuale fatica non è lontanamente para- 
gonabile a quella evitata neiraccendere 
la lavatrice o il macinino del caffè. 


Computer DA 128 KILOBYTE 

□ Perchè del nuovi mode Li Commodore 
non fate una buuna presentazione sulla 
rivista? (Paolo Argentati - Jesi) 

□ Ho sentito dire che esiste una espan- 
der che porta il Commodore 64 a ben 128 
Kbyte. E 1 vero? (Dante Cipolletta - 
Roma) 

□ Che fine farà il Commodore 64 dopo 
rtnt radiazione del C-128? (Numerosi 
lettori) 

* Abbiamo voluto accomunare queste 
Ire domande, diverse tra loro solo in 
apparenza. 


Incominciamo col dire che quando uri 
nuovo modello come ad cs., il PC 10 
viene messo in produzione, dovrebbe es- 
sere interesse della stessa Casa costruttri- 
ce inviarne un esemplare alle redazioni 
delle riviste specializzate in modo che le 
opportune notizie possano essere ade- 
guatamente presentate al pubblico dei 
potenziali utenti. 

A volte la presentazione “in antepri- 
ma 11 di un nuovo modello (che proviene, 
magari, dal mercato estero), o la brutale 
trascrizione dei depliant pubblicitari pre- 
confezionati, possono rappresentare 
uno svantaggio soprattutto per il cliente 
che ha appena acquistato un modello di 
quella Casa o sta per acquistarlo. 

Se C.C.C, à sembrato troppo pruden- 
te nelle anticipazioni sul C-128 (vedi nu- 
meri scorsi) il motivo è da ricercarsi nel 
fatto che, per pignoleria cd abitudine, 
preferiamo pubblicare notizie del model- 
lo che realmente verrà venduto in Italia, 
Un'altra motivazione che ci indurrà a 
trattare diffusamente di nuovi modelli 
sarà dettata dal convincimento personale 
sul reale futuro dei nuovi apparecchi. 

Il Commodore 64, a nostro parere, ha 
ancora un futuro dinanzi a sè che non 
verrà oscurato dal C-128 a meno che il 
prezzo di quest’ ultimo si abbassi a tal 
punto da incoraggiarne l'acquisto al po- 
sto del 064. 

Il famoso computer Commodore 64 
sembra infatti che stia avendo la meglio 
nella lotta ingaggiata dai giapponesi ed 
europei che hanno tentato di opporgli il 
sistema MSX. il 064, pertanto, rimane, 
come fascia di utilizzo (c soprattutto di 
prezzo) il computer più valido disponibi- 
le attualmente sul nostro pianeta sia per 
la vastità di programmi, sia per il minimo 
costo iniziale, sia per il modesto prezzo 
delle periferiche collegabili. 

T ali considerazioni, tuttavia, non pos- 
sono prescindere dal fatto che un compu- 
ter diventa obsoleto dopo qualche anno 
e, per rimanere sulla cresta dell'onda per 
un perìodo più lungo, deve riuscire ad 
accumulare una biblioteca software tale 
da non far desiderare un altro calcolatore 
per un certo tempo, 

Poiché apparteniamo alla società dei 
consumi e te fabbriche hanno bisogno di 
produrre continuamente per sopravvìve- 
re. ecco che la mancanza di nuovi appa- 
recchi porta irrimediabilmente ad una 
stasi del mercato ed alla proposta di nuo- 
ve merci con caratteristiche innovative e 
tali, comunque, da stimolarne il deside- 
rio di possesso. 

E in quest'ottica che deve essere os- 
servato, a nostro parere, il fenomeno C- 
128. Col 064, infatti, quasi tutto ciò che 
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era possibile fare (in termini puramente 
commerciali) è stato fallo e Ti mrod unio- 
ne di un nuovo calcolatore può indubbia 
niente vivacizzare il mercato, 

Il nuovo computer, come già detto nei 
numeri scorsi, t in realtà una fusione di 
tre computer. Tale conformazione rende 
di fatto straordinariamente velatile 
l'apparecchio ed apre le porte dell'ìnfoT- 
matìca, a prezzo contenuto, a quell’uten- 
za clic ha trovato difficoltà per vari 
motivi: 

a/ !u possibilità di utilizzare programmi 
che girano “sotto" il sistema operativo 
CP/M può avvicinare l'utenza aziendale 
che era finora rimasta discosta dal nome 
Commodore; 

b/ la possibilità di una visualizzazione 
(più nitida) su 8(1 colonne (oppure, a 
scelta, su 40 colonne) eviterà i brontoli] 
degli impiegati che non riuucivano ad 
orientarsi facilmente con Word Proces- 
sor, Data Base e Spreadsheet costretti 
nelle anguste 40 colonne del 064; 
c/ la maggior velocità di trasferimento 
dati nel oofloquoìo con i drive rende di 
fatto possibili nuove applicazioni in pro- 
grammi gestionali che, col C-64 e drive 
1541 , risultavano lentie inefficienti; 
d/ la programma/ ione col BASIC 7,11 es- 
clude la difficoltà tipica de! C-64 col qua- 
le si era costretti al ricorso intensivo di 
istruzioni Peek, Pokc ed all re soprattut- 
to per la gestione di grafica, suoni e 
spritc 

Con l'introduzione del nuovo appa- 
recchio perdono di interesse complicate 
schede dì espansione che, a parte il prez 
20, non risolvevano il problema della 
lentezza del trasferimento dei dati tra 
computer e drive. 

Per ciò che riguarda le espansioni di 
memoria, e qui concludiamo, non ce la 
sent iamo di consigliare, alla luce di quan- 
to detto, in senso positivo. 

Siamo infatti convinti che se una fab- 
brica di computer non prevede esplìcita- 
mente (e soprattutto se non sostiene 
commercialmente) particolari accessori 
ed apparecchi, è bene desistere dall'ac- 
quisto se non altro perche difficilmente 
sarà reperibile del software che nc utiliz- 
zi le pur interessanti caratteristiche. Rd 
un computer senza software ò utile come 
un'automobile sul Pisola delle 

barzellette. 


Opzioni non previste 

Molte sono le domande rivolte da 
possessori M insod disfalli” dì validi 


programmi che intendono renderli 
più versatili introducendo opzioni 
più comode. Esempi; 

D La cartuccia grafìe» Koala non con- 
sente il salvataggio dei disegni col regi- 
stratore. w. (Alberto Utili - Faenza) 

D Come %ì può utilizzare la penna ottica? 

(Maurizio Pappalardo -Catania) ♦ 

□ Come posso applicare il Joystick a pro- 
grammi che non nc prevedono Fuso? 

{Giuseppe Camiolo - Calta girone) 

* Un programma, in BASIC, in L.M. 
oppure compilato che sia, proietto oppu- 
re no, non fa altro che seguire un percor- 
so logico ben preciso e prende una dire- 
zione piuttosto che un'altra solo se ne è 
prevista la “diramazione". 

Se in un videogioco, ad esempio, di 
deve spostare una pedina con i tasti W, 
Z, A, S, non sarà assolutamente possibi- 
le spostarla in altro modo, anche se cer- 
chiamo di inserire il joystick nell'apposi- 
to connettore. In effetti lo spostamento 
del l 'assicella del joy trasmette l'informa- 
zione al computer, ma questo non la uti- 
lizza perchè il programma prevede l'in- 
tervento solo ne! caso in cui venga pre- 
muto uno dei quattro tasti citati, in altre 
parole: qualsiasi altra modifica di parti- 
colari locazioni di memoria non influen- 
za minimamente il comportamento del 
calcolatore. Allo stesso modo l'inseri- 
mento di una penna ottica non sortisce 
alcun effetto, benché il pennello di elet- 
troni del cinescopio colpisca continua- 
mente la cellula sensi bile del l’accessorio. 

Se ti programma è in BASIC oppure in 
Linguaggio Macchina e, comunque, non 
protetto, è necessario individuare il 
gruppo di istruzioni che sovraintende al- 
la pressione dei tasti e sostituirlo con uno 
analogo relativo al joystick onglì impulsi 
delta penna ottica. 

Tali modifiche, come è intuibile, pos- 
sono essere apportate solo da persone 
che vantano una lunga esperienza di 
programmazione. 

Anche l'alterazione di istruzioni relati- 
ve a! minifloppy può rappresentare diffi- 
coltà, non tanto per la loro sostituzione, 
ma perchè gli ideatori di programmi pro- 
fessionali, che escludono fin dal princi- 
pio la possibilità di utilizzare il registrato- 
re, si servono spesso delle locazioni di 
memoria ad esso riservate. La semplice 
sostit azione dei nLimero di device { 1 = re- 
gistratore invece di 8= floppy) può, in 
questi casi, provocare sconvolgi menti al 
funzionamento del programma. 

In conclusione, noi riteniamo che l’ac- 


quisto dì un drive per floppy è Pope razio- 
ne di gran lunga più economica, special- 
mente se rapportata al Tempo necessario 
per l'adattamento ai regitraiorc di alcuni 
programmi professionali. 

Per ciò che riguarda Luti l izzo dei joy- 
stick. invece, è già stato pubblicato un 
articolo suE N.12 (giugno - luglio 84) di 
C.C.C. Promettiamo che l argomcnto 
sarà ripreso per i nuovi lettori, ma antici- 
piamo fin d'ora che forniremo consìgli 
solo su come intervenire nei propri listali 
BASIC c non pct effettuare operazioni 
troppo complesse. 


Acquisti all’estero 

□ Vi è incompatibilità Ira stampanti, 
driva e allri accessori acquistati alTeste* 

ro? (Gianluca B lurido - Ariano Irpino, 
Michèle Persiani - Palermo) 

» Gli apparecchi che prevedono il colle- 
gamento a televisori domestici (compu- 
ter, videoregistratori, consolle per vi- 
deogiochi ed altri) devono assolutamen- 
te avere un identico standard altrimenti 
non funzionano, In Italia, come è noto, è 
stato adottato il PAL e, di conseguenza, 
è applicato agli apparecchi TV che cia- 
scuno di noi possiede. In Francia viene 
utilizzato il SEC AM mentre negli Stati 
Uniti impera il Sistema NTSC. Ciascuno 
di questi è incompatibile con gli altri con 
la conseguenza della impossibilità di col- 
legamenti tra loro. 

Alcuni Paesi, inoltre, dispongono di 
tensioni di alimentazione diverse da 2211 
volt e gli apparecchi elettrici ivi commer- 
cializzati, spesso, non posseggono i Ica m- 
hiotensione che permette di adattarli a 
tensioni dì rete diverse. In questi casi 
occorre dunque acquistare a parte l 'ap- 
posito trasformatore. 

Per ciò che riguarda drive, stampanti 
ed altri accessori non dovrebbero esservi 
incompatibilità ma, a conti fatti, non 
conviene acquistare negli U.S A. Citia- 
mo alcuni inconvenienti: trasporto di in- 
volucri ingombranti e scomodi (specie 
sull'aereo); passaggio furtivo delia doga- 
na per evitare le tasse di importazione; 
trovarsi in difficoltà nel caso di riparazio- 
ni, sono alcune delle riflessioni che do- 
vrebbero scoraggiare mini importazioni 
parallele. Acquistare in Germania o In- 
ghìl terra, d'altra pane, può portare ad 
un illusorio risparmio di poche migliai;! 
di lire dato che i prezzi sono praticamen- 
te identici a quelli praticati in Balia. 

Alessandro de Sìmoné 
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Listati di programmi protetti 
È punibile avere i tistìili di program- 
mi proietti? Molli dì questi partono non 
appena termina il loro caricamento. Co- 
me individuare la SYS o l'indirizzo del 
RUN? 

• Molti programmi, oltre che protetti, 
sono scritti il più delle volte in Linguag- 
gio Macchina e non in Basic. Alcuni, ori- 
ginariamente scesi in Basic, vengono in 
seguito compilati, sottoposti, cioè, ad un 
particolare procedimento che consente di 
velocizzare lì programma. 

Anche se riesci a rimuovere la prote- 
zione, è più che probabile che ti ritrovi 
un Listato di alcune migliaia di istruzioni 
in L.M. che necessitano dì un 
programma-utility, detto Disassembler, 
che ^facilita” la loro interpretazione. Ta- 
le lavoro, però, richiede un'esperienza di 
programmazione consistente c non sem- 
pre è sufficiente. Se poi il programma 
non è srato originariamente scritto in 
L.M* ma è stato, da Basic, compilato. 
Ti m presa è decisamente disperata. 

In questi casi c molto più efficiente stu- 
diare dò che riesce a fare il programma 
■protetto e in seguito realizzare un listato 
in grado di fare le stesse cose. 

Banche da ti e trasmissioni 
via telefono 

□ E possibile* con un Commodore 64. 
collegarsi ad una banca dati? 

• Grazie ad un apparecchio chiamato 
MODEM , c possìbile collegare, via tele- 
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fono, qualsiasi computer con qualsiasi 
banca dati in grado dì “dialogare” con 
esso. Il principio di funzionamento è 
piuttosto semplice ed c del tutto simile a 
quello che si realizza quando registri un 
programma col registratore. 

Se, infatti * provi ad “ascoltare” un na 
stro su cui c inciso un listato, sentirai una 
serie di., fischi che, per il computer, rap- 
presentano ciò che per noi rappresenta 
la voce umana. Il programma, al mo- 
mento della registrazione o della lettura* 
viene, in altre parole, trasformalo in suo- 
no c, di conseguenza, c suscettibile di es- 
ser trattato come tale. É ovvio che il te- 
lefono* oltre che la tua voce, è un ido- 
neo strumento per la “sua 1 " voce. In ge- 
nere due utenti* che possiedono ciascu- 
no un computer, un modem ed un tele- 
fono, possono scambiarsi dati e pro- 
grammi proprio ricorrendo al sistema de- 
scrìtto. È ovvio che dapprima uno dei 
due deve avvertire, telefonicamente. Tal 
irò in modo die prepari il computer per 
ricevere i dati. Quando sono pronti per 
la lice -trasm issi One inviano, premendo 
opportunamente dei tasti, ì segnali. 

Se però, ad inviare dati* è una grossa 
Società, tale sistema richiede parecchio 
tempo e, di conseguenza* la procedura 
viene automatizzata. In pratica un uten- 
te che desidera utilizzare una banca da- 
ti, paga un canone (fisso o proporziona- 
le all'uso) alla Società. Questa gli invia* 
periodicamente, la parola d l ordine neces- 
saria per entrare in collegamento con la 
banca. 


NEW HJFTul 

Accessori per CompufBF 

Via Carbone, 8 -Tei. 01 87/674097 
19033 Castelnuovo Magra (SP) 

Nastri per stampante 

Prezzo 


Commodore M FS sai ILQO Q 

Commodore MPS 802, 


Tally 80 . 12,000 

Commodore MFS 803 ... 14*800 

Commodore @024 5.100 


Eoson MX70 i e0 1 tì2 1 S3 1 ERC-04 r 
FXBQ, RX80, FX80, 

Commodore 4027. 

@022, IBM P/C, Sharp 

CE332P, MZ 80P5A, PC3201 ...... @.200 


Commodore 3022, 3033, 

Epson TX90, Itoh 330 OR. 

OKI 60, 62A, 6 3 A. 92 a 93, 
Sharp P3 

.... 3.000 

Eoson MX100 

... 9.900 

Commodore 8023P, MPP 1301 
Sharp SQP4A, Centronics 1 50 .. . 

.... 8.950 

Commodore @026, 

8027, 8032 

..„ 6 950 

Dischetti SF/DD x 10 

(eoo hot 1 raspar ente) 

. 38.000 

Diacheni DF/DD x 10 

(con so* trasparente) 

. 43.000 


Disco per pulizia delie testine. 
Questo può essere usate per 
drive con una ù due tacca. 

Il liquido basta per trroa 



Usate la seconda taccia del 
V/5 Mini disco. Tagliate a metà il coste dea 
Dischetti Foratore di Dischetti per usare 
acche l'altra faceta del disco. 

Per esempio Commodore 20/fi 4, 

Apple 4, Atan, eco, a solo 1 2.700 

Tutti i prezzi sono IVA inclusa 

Pag amor te co ntrass eg no. Per o rd ì™ su pc dori a 
L. TGO 000 spese posisi i a nostro carico. 

SPECIALI SCONTI A TUTTI 


Tra le numerose domande che pervengono in Redazione f vengono 
scelte in prevalenza quelle dì interesse generale, rinviando , spesso sine 
die, la pubblicazione di quelle ritenute meno interessanti oppure già 
affrontate dì recente su Commodore Computer Club , 

Ci capita infatti , purtroppo * di esaminare schede in cui vengono 
richiesti argomenti già trattati sullo stesso fascicolo da cui la scheda è 
tratta! 

Invitiamo pertanto i lettori , specie se principianti, a sfogliare con 
attenzione te pagine della nostra rivista e a leggere articoli che , pur se 
apparentemente non li interessano, contengono pur tuttavia preziose 
informazioni su istruzioni particolari (POKE, PEEK f SYS ed altre) a 
tecniche insolite di programmazione, registrazione di dati * programmi 


eccetera . 


I RIVENDITORI 


















Le immagini di questo fascicolo 


Il Commodore 128 



Milano, settembre. SMAU 85. E ? 
inevitabile che alla manifestazione 
piu importante in Italia, e seconda in 
Europa, net settore de ^informati- 
ca, tutte le case costruttrici presenti- 
no te novità destinate a tenere banco 
nei mesi successivi, 

La Commodore International non 
è da meno! La sorpresa della nostra 
casa è senza alcun dubbio il nuovo 
028, una trilogia di computer in 
una unica confezione, I nostri lettori 
avranno già intuito, tramite voci di 
corridoio, la notevole potenza del 
nuovo nato. Infatti noi possiamo uti- 
lizzare questo computer come se fos- 
se un normalissimo Commodore 64' 
poi, con estrema facilità, possiamo 
passare al Commodore 128 vero e 
proprio o ad un computer con siste- 
ma operativo CP/M. 


La scelta dei tecnici progettisti c 
stata dettata dalla necessità di rispet- 
tare la compatibilità con i vecchi si- 
stemi, nel nostro caso il C64, ed al 
tempo stesso ampliare le possibilità 
di visione verso altri più opportuni 
lìdi delFinform&tica, 

In modo C128 è possibile sfruttare 
i numerosi comandi aggiuntivi dedi- 
cati soprattutto alla grafica, alia pro- 
grammazione e alla gestione dei files 
c delle variabili senza dimenticare la 
maggior disponibilità di memoria ed 
una superiore velocità di 
esecuzione, 

E' infatti il BASIC versione 7.0 
che ci permette di gestire più facil- 
mente là grafica, il sound {è sempre 
presente l'ormai famoso SLD), gli 
sprite e molte altre performance 
ancora. 

Il sistema operativo CP/M offre 


agli utenti una vastissima biblioteca 
di programmi e procedure gestionali 
tali da rendere il Commodore 128 
utilizzabile anche per il lavoro di 
azienda. E’ inutile citare i vari pac- 
kage disponibili sotto questo sistèma 
operativo; infatti più edotti sono ì 
vari rivenditori di computer. 

Due parole vanno doverosamente 
specie nei riguardi dell'estetica che 
con linea sobria ed ampiamente er- 
gonomica rispetta quel concetto di 
sinergia uomo/ macchina tanto ne- 
cessario ai giorni nostri, dove il com- 
puter non è solamente uno strumen- 
to dì lavoro, ma anche di svago e di 
comprendimento personale. Ed è 
soprattutto per queste ragioni che il 
posto dì lavoro deve tenere presenti 
tutte le esigenze delFopcratore. 1! 
Commodore 128 sembra proprio ri- 
spettarle tutte! 
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IL PORTA COMPUTER 
CHE FA SPAZIO 


Mobil© di med, dens + , M 
laccato bianco, che ti per- ''mp0 
mette di raggruppare tutti i ym 
componenti de! tuo computer v 
in uno spazio di cm. 64x45, eli- ^ 
minando al tempo stesso tutti i fili 
esterni, 

I lettori che invieranno il coupon qui a 
destra, compilato in ogni sua parte. 


| di Amorusi G. Battista 

t J Via Montalbano, 2SL ■ Loc. Mercatale 
Tel. (0571) SOI 563 - 50059 VINCI (Fi) - Ita ly 
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STUDIO D 

PER NON SMARRIRE MAI IL FILO DEL DISCORSO. 
STUDIO D 

EMITTENTI RADIOTELEVISIVE INDIPENDENTI (NE SI TANNO SENTIRE. 


CONCESSIONARI MEZZI 
RADIOTELEVISIVI 

STUDIO D 

Via Rossini S - 20122 MILANO 
Tel. (02) 799,592 782.503 








A partire età questo mese sarà 
data precedenza, per la pubbli* 
caziorte, ai lettori che avranno 
inviato in unico “blocco” alme* 
no dieci mini-programmi d$ 
una riga. 

Ciò allo scopo evidente dì 
semplificare il lavoro di scelta, 
già notevole, da parte delia 
redazione. 

I numerosi (ben 28 !) mlcroìi- 
stati di questo numero sono 
opera di Maurizio DeM’Abate. 
Se non specificato diversa- 
mente, possono esser digitati 
su qualsiasi computer Commo- 
dore. E’ ovvio; comunque, che 
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Colpv d’occhio. Un gioco che metterà a 
dura prova il vostro ‘colpo d’occhio 1 . 

La riga Basic funziona su qualsiasi 
Commodore, 

Dopo aver dato il RUN, sulto scher- 
mo, in alto a sinistra, comparirà un nu- 
mero compreso tra 0 e 999999: cercate di 
memorizzarlo bene nella vostra lesta’ c, 
quando compare il *?' dell'input, digita- 
telo e premete return 1 . 

Se il numero è esatto, comparirà la 
scritta ‘ready"; se invece il numero digita- 
to non è corretto, comparirà la scritta 
‘NO’ seguita dal valore giusto’. 

Cosa c è di difficile? semplicemente il 
fatto che il numero da individuare, com- 
pare solo per un frazione di secondo! 

1 X- IMT (RND < 1 ) * 1 0 tS ) s P 
R INI" ICLE8R 1 *X iFQR I 
-i TG 300 s NEXTì PRINT 
MCLEARJ": INPUT Rt IP 

, R< >X THEN PR INTANO ! 

? ! "X 
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Caricamento rapido di turbo tape. Con 

questa “notevole riga è possibile carica- 
re il programma Turbo Tape (solo per 
Commodore 64) ad una velocità decisa- 
mente elevala. Per utilizzare corretta- 
mente il micro- program ma è necessario 
attenersi alle seguenti regole: 

- Preparate un nastro vergine, anche di 
brevissima durata, che avrà il compito di 
ospitare la nuova versione di T.T. a cari- 
camento rapido. 

- Caricare nel modo consueto la routine 
di Turbo Tape che possedete. 

- Caricate (o digitale) il programma una 
riga e date il RIJN. (premere ì tasti Re- 
cord & Play alla richiesta) 

- Quando, al termine della registrazione 
riappare lo schermo premete il tasto Stop 
del registratore. 

- A questo punto sul nastro è preseente, 
COI nome “TURBO SYSE4” il nuovo 
T.T, del tutto identico all’originale, ma 
caricabile in oltre metà del tempo 
consueto. 

Per utilizzare, invece, la nuova versio- 
ne del T.T + , operare come segue. 

- Digitare LOAD* n \l,l e premere il ta- 
sto Return (N.B. tra le virgolette non c’è 
lo spazio), 


- Digitare SYS 5E4:NEW e premere, ov- 
viamente Return. 

- Utilizzare il T.T. normalmente. 

Come funziona la riga del Turbo Tape. 

POKE 43 t 79:POKE 44,195: Sposta i 
puntatori d'inizio BASIC (43-44) a 49999 
( 195x256 +-79=49999), 

POKE 45,87; POKE46, 198: Sposta i 
puntatori di fine BASIC (45-46) a 50775 
Con queste operazioni, quindi, il C-64 
consirìera come propria memoria centra- 
le la parte di RAM occupata dal Turbo 
Tape, (da 50000 a 50774). 

SAVFTURBO SYS5E4M.1: L’in- 
dirizzo secondario 1 indica al computer 
di salvare il programma tenendo conto 
delle insolita locazioni di provenienza. 

SYS64738: Ripristina le normali con- 
dizioni di lavoro. 

Si ricorda che SYS 5E4 è un comando 
identico a SYS 50000 che attiva la routine 
del Turbo Tape. 

(Pietro Pasqui) 

ì PGKE 43/79 : PGKE 44,1 
85 i POKE 45,87: PGKE 4 
6 ? 198 iSAVÈ "TURBO SY 
S 5E4" ,1 , 1 5 SYS64738 
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Quanti colpì?. Ovvero probabilità e 
istruzione RND, 

11 64 ed il C 16, hanno 1000 locazioni di 
schermo, cioè, quando sul video ci sono 
1000 caratteri, questo è in ter amento 
‘riempito 1 (per il VIC 20, le locazioni 
sono 506), 

Le TRE diverse righe qui presentate 
(una per computer), propongono questo 
interrogativo: se noi ‘spariamo 1 casual- 
mente 1000 colpi (o 506 per il Vie) contro 
lo schermo, tramite risiamone RND t 
riusciamo a ‘forarlo 1 interamente? 

h 

Se, dopo aver dato il RUN, il vostro 
video ss riempie interamente, CORRE- 
TE SUBITO a mettere la schedina o a 
prendere un biglietto dì una qualsiasi 
lotteria] I! 

Personalmente, per riempire io scher- 
mo, ho dovuto sparare un numero di 
colpi pari a 10 volte quelli presenti nella 
riga (q uesto si può ottenere cambiando il 
valore finale del ciclo FQR - NEXT), 

Senza approfondire ulteriormente il 
discorso, potrete usare quesfa routine 
per i vostri studi sulle ‘ Probabilità T , o, più 
semplicemente, per fare qualche scom- 
messa con gli amici. ..... 


i PRINTUCLERR3 h :FGR I 
= I TC 1000: X = INT <RN0 
( 1 >*1000>;POK£ 1024+ 
X ,81: PGKE 55236+X,ti 
NEXT 
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l,oad and Save. volete fare uno scherzo 
ad un amico che possiede il 64 oppure il C 
16? Digitate questa riga e fategli Caricare 
(load) o Salvare (save) un programma. 

Per tornare alle condizioni normali, 
premere Run/stop ■+ Restore per il 64, 
oppure il pulsantino di ‘Reset’ per il C 
t6, 

1 POKE 8 16, 237: POKE Si 
7 ,245 :PQKE 818,165:P 
OKE 819,244 


1 POKE 814 ,164: POKE 81 
5,241: PGKE 8 16, 74* PO 
K£ 817,240 
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Quanto pesa? Vi siete mai chiesti quanto 
pesa un cubo di un certo materiale? 

Bene, con questa routine basta inseri- 
re il valore del LATO (in METRI) ed il 
PESO SPECIFICO della sostanza (in 
NEWTON/METRI cubi: questi valori li 
trovate su qualsiasi libro di Fisica; se vi 
capitasse di trovare solo i valori della 
DENSITÀ' in KG/METRI cubi, per ot- 
tenere ìlP.S. moltiplicateli per 9.8). 

Dopo aver digitato i dati appena de- 
scritti, verrà visualizzato immediatamen- 
te il volume ed il peso (in KG). 

Alcuni P.S: ferro 77028; piombo 
111132; aria a 0 gradi cent, 12.67 


1 PRINT" CCLEAR3 "i INPUT 
L : V-L t3 : INPUT Y:P*Y 
*V/3 , 8 : PR I NT * t DOWN 1 V 
GLUME "V b Mt3 * : PRINT" t 
DOUN3PE5G "P “KG 
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Binario decimale. Ecco un 1 ennesima ver- 
sione die consente di trasformare un va- 
lore binario iti decimale. Versione unica 
per qualsiasi computer. (Pina Salnitro - 
Reggio Calabria) 

i INPUT A$:N=LEN<A$3 :DI 
M X (N> ; FOR 1=1 TD N:X 
C I >=VRL(MID$<A*/ I , I > > 
#£ t (N"I ) : 8=5 +X < I ) : NEX 
TìPRINTS 
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Colori. Questa versione, valida perii so 
lo Commodore 64, permette di visuàliz- 
zare tutti i colori dei CBM 64 generando 
sul io sche mio un susseguirsi di lampeggi 
colorati. (Mauro latinucci - Roma ) 


Ver mi no multicotor. Solo per 64 . Il solito 
vernice Ilo che percorre Unterò video, ri- 
ga dopo riga, mangiando tutto ciò che 
trova sul suo cammino. 

(À proposito, vi siete accorti che il 
titolo è Vermino e non VERME? que- 
stione di sensibilità...) 

Questa volta, però, cammina sfruttan- 
do le locazioni di schermo e di colore de! 
64, cambiando continuamente (e casual- 
mente) colore. 

La generazione casuale, non è fatta 
attraverso i! solito RND h he usi leggendo 
(PEEK) la locazione 162; questa ritorna 
un numero casuale compreso tra 0 c 2 55. 

1 FOR 1=1 TO 7EP0KE 10 
24+ I +C 1 sPQKE 5529S 
+ 1 +C ,PEEK ( 182 > : NEXTs 
C=C + 1 iPOKE 1023+C ,32 
!IF C< 900 THEN 1 


1 PRINT" [C LEAR! COLORI 6 
4“ :F0R 1 = 1 TO 3: FOR R 
= 1 TO 8:P0KE 53281 , 1 : 
POKE 53280,R:NEXTR, I : 
GOTO 1 


1 PRINT" [CLEAR 1C0L0R 1 V 
IC20* ;F0R 1=1 TO 255: 

POKE 3B879.HF0R R = 1 
TO 29 iNEXTR , I i GOTO 1 
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La colonna vìncente. Il tuo computer 
compilerà una schedina che potrebbe an- 
che essere "quella BUONA!!!' 
(Ferdinando Tommasi) 

1 A$<0) = H X* itti 1)=" i " 1 
R$<£) = "£* SPRINT " COLE 
flRJ-SFOR 1 = 1 TO 13 s R 
= RISD< 1 )*3SPRINTft*<A> 
s NEXT 
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Riga-colonna. Coti questa breve routine, 
potrete selezionare ordinata e ascissa del 
prossimo carattere da stampare sul 
video. 

Net casi qui riportali, uno per il 64, 
uno per il VIC 211 e uno per C 16, sono 
stati scelti quei valori che ‘centravano’ le 
rispettive scritte. 

i PRINT" [CLEAR] 14 E POKE 
£14/13 SPRINT: POKE £i 
1 / 14 SPRINT "COMMODORE 

64" 

1 PRIMI" [OLEARI" : POKE 
£34^10! PR I NT ! POKE £1 
t , 3 : Pft I NT " COMMODORE 
V IC-20 H 

I PRINT" ICLERR 3 " :P0KE 
£05/ 1 J SPRINT iPOKE £6 
£, 33: PRINT "COMMODORE 
C 3 6 11 
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Labirinto. Un intricatissimo’ labirinto 
nel quale non sempre si riesce a trovare 
la via d'uscita, 

(Claudio Levantini) 

1 PRINTCHR*<£0S,5+RND< 
IV);: GOTO 1 


Nota bene 

Alcune righe tra quelle pubblicate sembrano possedere ptù di SO caraneri e, come tali , inaccettabili dai computer , 
Nei casi in cui ci si accorge che la riga è troppo lunga , è necessario ricorrere alle abbreviazioni dei comandi cosi 
come indicato nell’ appendice specifica riportata nel manuale del computer in vostro possesso. 

Ad esempio invece di scrivere PRINT, è possibile abbreviare col punto interrogativo (?) . Invece di POKE 
potete scrivere il carattere ‘7* 11 seguito dal carattere che viene visualizzato premendo contemporaneamente il tasto 
shìft insieme con f h O* \ Tutte le abbreviazioni possibili, lo ripetiamo , sono riportate in una delle appendici di qualsiasi 
manuale Commodore „ 

Nel caso sbagliate a digitare i microlistati che superano , in lunghezza, gli ottanta caratteri (SYNTAX ERROR), è 
necessario, per sicurezza, ribatterli per intero e non apportare modifiche alla riga visualizzata con V istruzione LIST, 
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computer System 

s.a.s. di Gloriano Rossi e C. 

C.so Porta Nuova 46 - 20121 Milano 
Tel. 02/6599547-6575115 


rivenditore autorizzato 

Commodore 


A !taftelIF®Q®Kras)fe) 



Software 


Prodotti 

t 

/ 

Accessori 

Assistenza 


Assistenza software per Commodore, Sanyo, NCR, Sirius-Victor e tutti i 
personal compatibili IBM-PC, 

KHMODEM, il demodulatore ideale per la trasmissione e ricezione dei dati 
(Baudot, ASCII, RTTY, CW). 


Rivenditori di zona.; 

CREMA: EDP ANSWER di A. Guerci - Via Borletio 1 - Tel. 0373-59140 


oifMilS MHV 



VIDE0DIGIT1ZER 

Stampate a colori te immagini riprese con !a telecamera! 

Con il videodigitizer C64 qualsiasi segnale video può 
essere digitalizzato con il COMMODORE 64, 

memorizzata, colorato e stampata. 

■ Può essere ulteriormente elaborato tramite 

la Koala Pad per ottenere effetti particolari. 
Tutto dò che serve è una telecamera b/n o 
colore, oppure un videoregistratore (purché 
con fermo immagine], un monitore [a colori 
preferibilmente}, una stampante e con il 


VIDEODIGITIZER il gioco è fatto! 

Prezzo al pubblico consigliato Lire 420.000 
IVA compresa. 


KOALA PAD 

SÉ» KOALA LIGHT PEN \ 

Wm Disegnate facilmente a colori, 

% e a mano libera con la 

tavoletta grafica Koala o 
direttamente sullo schermo con la penna -, 
ottica Koala. 

Il potente software Vi offre inoltre una scelta dì 
primitive grafiche quali cerchi, rettangoli e una 
serie di effetti speciali: effetto speculare, 
radiale ed altri ancora. Prezzo al pubblico 
consigliata 


compresa 


Koala Ughi Pen 

Lire 265.000 IVA compreso 


TURBOPRINT GT N 

["interfaccia parallela Centronics per 
collegare qualsiasi periferica al C. ■ 

La TURBOPRINT consente il passaggio 
totale della grafica del COMMODORE 

ed è disponìbile in tre versioni; 

TURBOPRINT C solo testa 

TURBOPRINT GC testo -r grafico 

TURBOPRIN^ GTC fresto+ possibilità di collegare buffer 

da 16 o 32K 

Prezzi al pubblico a partire da Lire 1 42,000 IVA compresa 
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COMPUTER GRAPHICS DIVtSION 


MILANO- Vìo L. do Vìnci, 43 - 20090 Trezzono S/N 
Tel, 02/4455741/2/3/4/5 -Tlx: TELINT I 312827 


ROMA: Via Soiaria, 1319-00138 Rome 

Tel. 06/691 7058-6919312 -Tlx:TINTRO 1 61 4381 








L’UTILE 

QUALSIASI COMPUTER 

Enciclopedia di routine 


Come realizzare, un po’ per volta, una straordinaria raccolta 
di sottoprogrammi di utilità generale indispensabili sia per 
semplificare la stesura dei vostri programmi, sia per 
comprendere il funzionamento di tantissime istruzioni 

BASIC concatenate tra loro. 


v eden do girare a leoni interessanti pro- 
grammi, capita spesso di apprezzare partico- 
lari tecniche di programmazione, determina- 
te possibilità d’uso oppure semplici ma origi- 
nali abbellimenti grafici. 

Capita, inoltre, di voler inserire, in un nuo- 
vo programma che ci accingiamo' a scrivere, 
un determinato effetto che avevamo già usato 
in un precedente listato. 

Quasi sempre, purtroppo, rintracciare la 
routine in grado di svolgere il compito deside- 
rato è un'impresa piuttosto ardua, tanto che, 
fatti i debiti conti, conviene reinventarla nuo- 
vamente perdendo, però, tanto tempo prezio- 
so (a parte i nervi...) 

Anche i programmatori più ordinati e pi- 
gnoli, che conservano una copia scritta di ogni 
listato, spesso non si raccapezzano più tra 
variabili (a che diavolo serviva A$?), necessi- 
tà nuove (e se voglio ripetere il procedimento 
4 volte di seguito?) e nuove situazioni (e se la 
visualizzazione “esce” dal video?). 


Una nuova rubrìca 

A partire da questo numero, viene presen- 
tata una nuova iniziativa, aperta, ovviamene 
te, a tutti i lettori di Commodore Computer 
Club, 

Siamo sicuri che ridea sarà apprezzata, co- 
me vedremo tra breve, da tutti (principianti e 
non) perchè consente di realizzare una vera e 
propria enciclopedia di sottOprogrammi in 
BASIC (per il Linguaggio Macchina ci stiamo 
attrezzando-,) dall’uso talmente facile e ver- 
satile che semplificherà di molto la stesura dei 
propri programmi. 

L'idea consiste nel presentare, su ogni nu- 
mero, un certo nurncTo di routine, incaricate, 
ciascuna, di svolgere un compito ben preciso. 
La novità, però, non consìste tanto nel pub- 
blicare sottoprogrammi di interesse generale 
(idea, in verità, per nulla originale), ma di 
proporli in una “veste” standardizzata che 
consenta, appunto, di renderli realmente 
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* un pò 
biblioteca. 


di uso immediato 
non possedendo 9 a 
difficoltà a 
le numerosissime routine 
per volta, arricchiranno la 


Lo .standard adottalo 

Le linee di un programma BASIC* come è 
noto, possono esser individuate con un nume- 
ro variabile da 0 (zero) a 63999. Per utilizzare 
proficuamente l'enciclopedia sarà quindi ne- 
cessario ricorrere ad una specie di “mappa 
della memoria’ . 

Si é deciso che i programmi veri e propri 
(quelli, cioè. “ ‘principali”) potranno esser nu- 
merati liberamente nell 1 in ter va Ito compreso 
ira 0 e 99913, Per sicurezza, come infatti vedre- 
mo, La linea 9999 contiene soltanto il coman- 
do END. Lo spazio dì ben 10000 righe è di 
certo più che sufficiente per ospitarvi pro- 
grammi di qualunque tipo, 

1 sotto programmi che costituiscono rener- 
ei opc dia saranno invece numerati da 10000 in 
poi e dovranno soddisfare le seguenti regole; 
a/ Ciascun souoprogramraa non può, in NES- 
SUN CASO, richiedere uno spazio dì visua- 
lizzazione superiore ad una schermata. In al- 
tre parole: digitando, ad esempio, il 
comando; 

LIST 10000- 10099 

il sottoprogramma che si desidera esaminare 
deve comparire PER INTERO sul video, 
comprese le righe contenenti gli statement 
REM (vedi dopo). 

Tale esigenza È indispensabile per facilitare 
l’esame della routine da parte dell’ utilizzatore 
che abbia dimenticato (o voglia modificarne) 
il funzionamento Come unica eccezione è 
accettata la scomparsa, a causa dello scrol- 
ling, della sola linea che contiene il comando 
LIST (quello, per intenderci* che visualizza il 
sottoprogramma in esame), 
bf La prima riga di ogni sottoprogramma deve 
esser numerata con le ultime tre cifre indican- 
ti un centinaio intero. 

Esempio di numerazione di Aprirne" righe: 
10000, 12300, 23400. 

Esempi di numerazione non lecita, da evitare 
assolutamente; 

12350, 14555 eccetera. 

Tale standard possiamo indicarlo come: 
Prima riga: XXYD0 

in cui i due caratteri “XX" possono esser 
variabili da “UT a “65", "Y" è un valore 
compreso tra “0" t “9” e le ultime due cifre 
devono esser sempre l4 00” 

Con tale impostazione luti lizzatole saprà 
che qualunque subroutine del! enciclopedia 
inizia con una numerazione, di cinque carat- 
teri, terminante con “00". Di conseguenza, 
almeno in teoria, È possibile memorizzare ol- 
tre SUO sottoprogrammi! E' ovvio che tale 
enorme capacità non potrà esser sfruttata 
completamente dato che la memoria RAM a 
disposizione può risultare insufficiente. 

Per realizzare una pur minima suddivisione 
di aree, si t decìso di utilizzare le righe da 
SfKXJO in poi per ospitare routine di utilità per 
periferiche (disco, stampante, plotteT* 
eccetera). 


c/ Qualunque sotto programma, pur se brevis- 
simo, deve avere a disposizione uno spazio 
numerico di UH) righe, compatibilmente, è 
superfluo ricordarlo, con l’esigenza di una 
completa visualizzazione delfiniera routine 
in una sola schermata (vedi punto a più 
sopra). 

Tale standard (che possiamo indicare bre- 
vemente con: ultima riga: ‘ XXY99") consen- 
tirà all'utibzzatorc di ricordare facilmente l’a- 
rca in cui è collocata una qualunque routine. 

Se, ad esempio, è noto che un sottopro- 
gramma inizia con la numerazione 32500, sarà 
sufficiente digitare; 

LIST 32500-32599 

per visualizzare r intera routine sullo 
schermo. 

d/ L'ultima riga del sottoprogramma deve 
sempre essere una REM contenente il nome 
dell' utility stessa (XXY99 REM NOME 
ROUTINE...). 

In questo modo Tunlizzalore che in seguilo 
non dovesse ricordare, fra le tante* Tesatta 
numerazione della subroutine che interessa, 
dovrà semplicemente digitare, ad esempio: 
LIST 14399 

Poiché tutte le righe terminanti con “99" 
contengono soltanto il nome della routine sa- 
rà decisamente più semplice (c rapido) rin- 
tracciare quella che interessa senza perder 
tempo ad esaminarle tutte per intero, 
e/ Le variabili numeriche e stringa utilizzate 
in ciascuna subroutme devono esser tali da 
non generare confusione con quelle utilizzate 
nel programma principale. Chiunque, in ef- 
fetti, può ricorrere, per indicare le variabili, ai 
nomi che riterrà più opportuni. Per quanto ci 
riguarda, dato che non possiamo fare a meno 
di indicarli* ricorreremo costantemente Osile 
variabili numeriche: 

X0X1X2.., X9 
Y0. h , Y9 eccetera 

Analogamente* per le variabili stringa, uti- 
lizzeremo i nomi: 

XQ$ XIS eccetera. 

Il motivo per cui suggeriamo tali nomi 
"strani” risiede nel fatto che, normalmente, 
l’ utilizzatore, nei propri progravmì* ricorre a 
nomi di scarsa... fantasia (A, B$ ed altri). 
Utilizzando, nei sottoprogrammi dell 'enciclo- 
pedia, nomi poco usati, si evita il rischio di 
alterare il contenuto dì vari bili numeriche e 
striega già utilizzate nel programma 
principale. 

lì La numerazione della routine, fatti salvi i 
punti precedenti, può esser qualunque e non 
necessariamente ordinala con intevallo pre- 
fissato. Tale accorgi mento con sentirà* tra l'al- 
tro, la possibilità di re numerare le singole 
routine ri allocandole dove si desidera. 

Se, ad esempio, un sotioprogramma che 
vedrete pubblicato su queste pagine è nume- 
rato da 42300 a 42399, sarà possibile “trasfe- 
rirlo"* supponiamo, da 23400 a 23499 cam- 
biando semplicemente i primi tre caratteri nu- 
merici di ciascuna riga e, analogamente* i pri- 
mi tre caratteri di eventuali istruzioni GOTO 
oppure GQSUB. Esempio: G0TO42365 si 
trasforma facilmente, grazie allo standard 
adottato, in GOTQ23365. 
gì Le ultime fighe del sottoprogramma (da 
XXY90 a XXY98) devono contenere* all’in- 


terno dii statement REM, solo le indicazioni di 
massima necessarie per l'utilizzo del sottopro- 
gramma stesso e l'elenco delle variabili utiliz- 
zate, Queste righe, ovviamente, non possono 
assolutamente contenere altre istruzioni al- 
rinfuori delle REM. 

hi Allo scopo di semplificare la “lettura' 1 della 
routine, in nessun caso è possibile* da un sot- 
toprogramma, richiamare una subrouline di 
altro sottoprogramma “standardizzato". E' 
però possibile richiamare eventuali subrouti- 
ne poste all’interno del sottoprogramma 
stesso. 


Riepilogando... 

In accordo con lo standard suggerito pos- 
siamo qui di seguilo riportata lo schema se- 
condo il quale dovrà esser strutturata una 
qualunque subroutine dell'enciclopedia: 

RIGHE CONTENUTO 


XXY00 Prima riga del sottoprogramma 
istruzioni (da XXY0O a XXY89) 
XXY89 Ultima riga utile del sottopro- 
gramma 

XXY90 REM Prima riga di spiegazioni 

■ t t -i 4 * 

XXY9R REM Ultima riga di spiegazioni 

XXY99 REM Nome sottoprogramma 


Ne consegue che: 

LIST XXY00-XXY99 Visualizza Finterà 
routine, 

LIST XXYOO-XXY89 Visualizza solo le istru- 
zioni ed ì comandi BASIC, 

LIST XXY90-XXY98 Visualizza le istruzioni 
d’uso. 

LIST XXY99 Visualizza solo il nome. 

Come utilizzare le routine 

Su ogni numero di Commodore Computer 
Club verranno pubblicate delle routine da ag- 
giungere all’enciclopedia. E 1 òvvio che, per 
facilitare al lettore il compito della trascrizio- 
ne, verranno pubblicate con numerazione 
crescente (10OO0-1O099. 1010040199. 10200- 
10299 eccetera). 

Il lettore che desidera collezionarle tutte 
dovrà compiere le seguenti semplicissime 
operazioni; 

- caricare (se già le ha digitata dai numeri 
precedenti) le subroutìne che avrà avuto l’ac- 
cortezza ó\ registrare su disco o nastro, 

- digitare le nuove subroutine che, grazie alla 
numerazione in successione, non potranno in 
alcun modo sovrapporsi, cancellandole* a 
quelle precedenti. 

- registrare, su nastro o disco* la nuova versio- 
ne, ampliata* della raccolta di routine. 

Chi* invece, desidera utilizzare rea Ime ma 
l'enciclopedia di sottoprogrammi dovrà dap- 
prima caricare iti memoria la varsione più 
recente c* in seguito, scrivere il proprio pro- 
gramma ricordandosi di non utilizzare una 
numerazione superiore a 999R. 
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L’UTILE 


La co Ha bora zi tme dei lettori 

Coloro che desiderano opporla re il proprio 
contributo alia rivista dovranno, per intuibili 
motivi, attenersi rigidamente alle seguenti 
condizioni: 

- rispettare gli standard adottati senza alcuna 
eccezione; 

- inviare ALMENO tre sotto program mi di in- 
teresse generale; 


- le routine possono esser inviate sia su nastro 
che su disco oppure supporto cartaceo, pur- 
ché i listati siano stati scritti con stampante 
{non verranno presi in considerazione quelli 
scritti a mano o a macchina); 

- ailegara una breve descrizione dell'utilità 
dei so ito program mi inviati insieme con un 
esempio d\ifto; 

- la numerazione può essere qualunque pur- 


ché rispetti lo standard a 

T ra i vari listati che pcrverrann 
verranno privilegiali per la pub 
piii hrevi, universali (che possono girare su 
qualunque computer Commodore) e di inte- 
resse didattico. Non dimenticate, infatti, che 


la raccolta di tali routine sarà preziosissima 
per coloro che vogliono approfondire la pro- 
pria conoscenza del BASIC. 


PER INIZIARE 


In questa prima puntata pubblichiamo alcune routine, scrìtte rispettando lo standard indicato precedentemen- 
te, anche per far meglio comprendere ai lettori che intendono co! [adorare il modo in cut inviare i propri labori 
N,B. Ciascuna subroutine è presentata insieme ad un breve programma dimostrativo (numerato da 100) che 
ha il solo scopo di fornire un idea sulla possibilità d'uso dai sottoprogramma stesso. 


10000-10099 

CORNICE POLICROMA 

(solo per C-64) 

Simpatico effetto grafico. Prima di accedere alla subroutine 
è necessario assegnare alta variabile stringa XI $ il carattere 
alfanumerico oppure grafico che sì desidera sia riprodotto 
sul bordo del video. 

* 

108 REM ESEMPIO D*US0 
110 REM CORNICE POLICROMA 
1 18 REM SOLO PER C-S4 
115 ! 

JÈ0 INPUT "DIGITA CARATTERE M / X 1 $ 
130 INPUT "QUANTE VOLTE °;NV 
140 FOR I~I TO NV * GQSUB 10000ÌNEX 
T 

150 : 

1 S 0 ; 

9999 END 

18000 PRINTCHRSC 13); :X0**" *:FQR Xl = 
I TO 3e:X0$=XB$+eHR*<29>:NEXT 
: X3 -55296 ! X2=8 

10005 X4=0SFOR XI =1 TO 40:PRINTX1$; 

! NEXT 

100 10 FOR XI - 1 TO 23 * PR I NTX 1 $X0$X 1 $ 
; S NEXT 

10015 FOR Xl = l TO 33 5 PR 1 NTX 1 £ bEXT 
10025 FOR X 1 ”0 TO 33;P0KE X3+Xl,X2s 
X2=X2 + 1 : IF X2>15 THEN X£=0 
10035 NEXT -FOR X1»0 TO 24EP0KE X3+X 
1*40-1 ,X2:X2=X£+1 s IF X2>15 TH 
EN X2=0 


10055 NEXT: X£=0 :F0R X 1 =0 TO 39 = P0KE 
X3-XH-Ì000,X£tX2=X2 + IiÌF X2> 
15 THEN X2-0 

10070 NEXT s FOR Xl=24 TO 0 STEP - 1 sp 
OKE X3+XI *40 ,X2 :X2-X2+ 1 i IF XS 
>15 THEN X2-0 
10089 NEXT: RETURN 

10030 REM VARIABILI XI ,X2 ,X3 ,X0*,X 
IS 

10091 REM X 1 ^-CARATTERE DELLA CORN 
ICE 

10099 REM NOME* CORNICE POLICROMA 


1G1CXM0199 

COLORE BORE» E FONDO 

(solo per C-64) 

Durante l'esecuzione di un programma, allo scopo di richia- 
mare l'attenzione, può esser utile far lampeggiare lo scher- 
mo, il suo bordo o entrambi. 

Eseguendo GQSUB 10 tOQ, ed assegnando alia variabile 
X2 uno dei tre valori (0 t 1 ,2) lo schermo lampeggerà ad una 
frequenza indicata da Xt fino a che non verrà premuto un 
tasto, À questo punto il bordo e il fondo assumeranno lo 
stesso colore che avevano prima dell'esecuzione dalla 
routine. 

100 REM ESEMPIO D'USO 
110 REM CAMBIO COLORE 
1I£ REM (SOLO PER C-64> 

115 : 

120 INPUT " 1 = FONDO . £=B0RD0, 3=EN 
TRAM3 1 H J X2 
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L’ UTILE 


I TARDO " ,* X 1 
100 


10100 X?=53280:XS=53£8l SX3=PEEK(X7) 


!X4=PEEK (X3 ) 

10105 POR X5=0 TO 15! IF X2-1 THEN P 
OHE X7 ,X5 

10110 IF X2-2 THEN POKE X8,X5 
10115 FOR XS=0 TO XI 
10120 GET X1*?IF XI* THEN X5=15sXS= 
XI 


10125 NEXTX6 ,X5 : IF Xi*='"' THEN 1010 
5 

10130 POKE X7,X3:P0KE X8,X4 
10183 RETURN 

10130 REM VARIABILI: X 1 ,X2 ,X3 ,X4 ,X 
5,X6,X7,X8,X1$ 

10191 REM INGRESSO; X2=l FONDO 
10132 REM XB-2 BORDO, XE=0 ENTRAMB 
I 

10193 REM X1=RI TARDO 
10139 REM CAMBIO COLORE BORDO & FO 
NDQ 


10300-10399 

INPUT CON DEFAULT 

(qualsiasi computer) 

Capita spesso, in programmi interattivi, di voler visualizzare, 
mediante un INPUT, una certa domanda e, subito di fianco, 
una determinata parola, in modo che, premendo il tasto 
Return, questa venga accettata come Delault (-valore 
standard). Esempio: 

DIGITA IL VALORE? 567,4 

Si desidera che il cursore, ovviamente, lampeggi sul pri- 
mo carattere della risposta “preconfezionata 1 ' (5 di 567.4) in 
modo che, volendo modificarne il valore, sarà sufficiente 
ribatterlo. In caso contrario la pressione del tasto Return 
‘ passa" inalterato il valore standard 567.4, 

La semplicità dalla routine è tale die evitiamo di 
descriverla. 

100 REM ESEMPIO D"USO 
1 10 REM INPUT CON DEFAULT 
1 15 : 

150 INPUT “FRASE DA V ISUAL . 11 ; XI* 

155 INPUT "DEFAULT'NXPS 

160 GOSUB 10300: IF XI =1 THEN PR IN 
T"LA RISPOSTA E' DEFAULT" 

161 IF X 1 -0 THEN FRI NT "LA R ISPGST 


A NON E 1 DEFAULT 11 
163 IF X 1 =2 THEN PR 1NT "LA RISPOST 
A E 1 >79 CARATTERI" 

163 GOTO 160 
165 ; 

9399 END 

10300 X 1 =0 : IF LENCXI$>>79 OR LEN(X2 
$>>79 THEN X 1 =2 : GOTO 10389 
10305 PR INTX C3R )CHR$<32 ) ; X2$ 


10320 FOR 1 = 1 TO L£N(X2$) +2 s PR 1NTCH 
R$< 157)1 sNEXT 

10330 INPUT X3$=IF X3$=X£$ THEN Xl= 
1 

10340 IF X3$= 11 J * THEN PR INTCHR$< 145 > 
> SGOTO 10300 

10389 RETURN 

10390 REM VARIABILI Hi r X 1$, X£$, 
X3$ 

10332 REM INGRESSI: 

10393 REM X 1$= FRASE -DOMANDA 

10394 REM X2$= DEFAULT 

1 0395 REM XI=1 DEFAULT* XÌ*B ALTRI 

CAR . 

10396 REM XI =2 LUNGHEZZA STRINGA > 
73 

10398 REM NOME : INPUT CON CONTROLL 
O DI DEFAULT 


10200-10299 

INDIVIDUA PAROLA 

(qualsiasi computer) 

Nei giochi di intelligenza artificiale, e in tante altre occasioni, 
può esser utile individuare, all'interno di una stringa rappre- 
sentante un'intera frase, una ben determinata parola Pro- 
vate a utilizzare il demo di righe 120-140. Alla domanda: 
DIGITA FRASE? rispondete, ad esempio, con: 

QUESTA E' UNA CERTA FRASE 
Alla domanda: INDICA N. PAROLA? risponderete con: 4 
Verrà visualizzata, ovviamente, la quarta parola (CER- 
TA), Eseguendo GOSUB 10270 è possibile conoscere il nu- 
mero di parole contenute nella frase XI $. 

La parola cercata viene assegnata alla variabile stringa 
X4S. Se la frase è nulla oppure si richiede una parola non 
esistente (es toma parola in una frase di sole 5 parole) X4$ 
sarà nulla. 

N.B. Le parole della frase devono essere separate da un 
solo spazio bianco. 
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i- 

A 


if 


100 
1 10 
i 12 

1 15 
1£0 
125 
130 
140 


REM 

ESEMPIO D 1 

USO 

REM 

ESTRAZ IONE 

DI 

REM 

PAROLA DA 

FRASE 


li UTILE 


\ , 35 *' 

«asstf 


50000-50099 

LEGGE BLOCCHI LIBERI 

(qualsiasi computer usato coi drive 1 541] 



INPUT "DIGITA FRASE ";X1$ 

INPUT lr INDICA N- PAROLA " ; X I 
GOSUB 1 0£0D : PR 1NTX4$ 

60 SUB 10270 SPRINTA, PAROLE IN 
FRASE- *X5 


Prima di servirsi di un disco può esser utile venire a cono- 
scenza del numero di blocchi liberi ancora disponibili in 
modo da stabilire se un certo file potrà essere ospitato per 
intero oppure no. Purtroppo leggendo la directory 
(LOAD“$”,8) il programma in memoria viene cancellato. La 
brevissima routine supera tale ostacolo consentendo di indi- 
viduare il numero di blocchi liberi e, con una semplice sottra- 
zione, il numero di blocchi già occupati sul disco in esame. 


150 i 
3333 END 


Alessandro de S imene 


10800 X 1$-* 11 +X1$:X4-B!X2$-"' 1 = X3$= l! n 


10205 


10220 

10230 


10250 

10260 

10270 

10275 

10890 

10235 

10837 

1 0838 

10233 


■ X4$= " *' : F0R X2 = I TO LEN<X1$> 
X 3 $-MI 0 $<X 1 $,X£ , 1 ) * IF X 3 $=" 11 
THEN X4=X4+ 1 ; IF X4*XÌ THEN 102 
30 

NE X TX 2 

FOR XI -1 TO LEN(X 1$> ~X2 : X3$=MI 
D$CX1$,X£+X1 ,1): IF X3$= ra IJ THE 
N ! 0860 

X4$^X4$+X3$:N£XT 
XÌ*=*RI6HT$CXJ$,LBN(XÌ$)-1 > :RET 
URN 

X5=i:F0R X 1 = 1 TO LEN<X1$):IF M 
10*<xi*,xi,l> = - 11 THEN X5-X5+ ì 
NEXT: RETURN 

REM VARIABILI Xl$ X£$ X3$ X4$ 
XI X2 X3 X4 X5 

REM INGRESSI sXlS=FRASE- Xi*PG 
SIZI0LE PAROLA IN FRASE 
REM USCITA X4$- PAROLA VOLUTA 
REM NOTA = GOSUB 10270 CALCOLA 
N, PAROLE IN FRASE 
REM NOME s ESTRAZIONE DI PAROLA 
DA FRASE 



100 
1 10 
1 12 
1 15 
120 

185 

126 

130 

9933 

50000 

50010 


50020 

50030 
50040 
50050 

50060 

50070 

50075 

50089 

50090 

50031 
50092 
50099 


REM ESEMPIO D'USO 
REM LEGGE N. BLOCCHI 
REM LIBERI SU DISCO 
; 

PRINTCHR$( 147) "ATTENDERE, , * " * G 
GSUB 50000 

FRI NT 11 BLOCCHI LIBERI =“X1 

PR I NT "BLOCCA I OCCUPATI ="664~X 

1 

A 

■ 

END 

CLOSE 1 ! OPEN i ,8,0, "$'■ i GEI #1 , 
X1$,X2* 

GET ttl ,X1*,X2$:GET #I,X1$,X£S: 
X 1 =8 : IF Xl*<>“" THEN X1=ASC(X1 

SO 

IF X£$< > 11 " THEN X 1 *X 1 +ASC CX24 ) 
*£56 

GET ttl ,X£*: IF 5T THEN 50033 
IF XP$< >CHR*<34> THEN 50030 
GET tt 1 ,X2i: IF X£3:<>CHR*< 34 ) TH 
EN 50050 

GET ttl,X2$:IF X£$=CHR*(32> THE 
N 50060 

GET «1,X£*:IF THEN 500 

70 

IF ST =0 THEN 50010 
CLOSE 1: RETURN 

REM VARIABILI: X 1 , X 1 t ,X2$ r ST 
REM CANAL! DISCO! N. 1 
REM XI=N. BLOCCHI LIBERI 

REM NOME: LEGGE N, BLOCCHI LI6. 
ERI 
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on questo numero, inizia un ciclo di 
articoli sul linguaggio Logo, per 3a preci- 
sione il Logo E. LI. AMA., pubblicato 
sulla cassetta Commodore Club di mag- 
gio n, S. Immaginiamo che sia già un 
best-seller fra i lettori delta rivista, ma chi 
ne fosse sprovvisto, può richiederlo pres- 
so la redazione Commodore Club, VJe 
Famagosta 75 MI. 

A questo punto, tutti penseranno: 
“ecco, la solita tirata su un nuovo lin- 
guaggio, ma nessuno ci insegna a pro- 
grammare i videogiochi?”. Forse non 
tutti sanno che. , . , il Logo £ un linguaggio 
per imparare, per imparare nel senso più 
generale, quindi vogliamo partire da ze- 
ro per camminare insieme nel mondo dei 
computer ed apprendere il loro linguag- 
gio, la loro natura ed il loro modo di 
aiutarci a risolvere i problemi. 

Onesto non significa che parleremo 
solo con quelli che di informatica non 
capiscono un “tubo 71 , qui ci preoccupe- 
remo di fornire le “dritte 11 giuste per uti- 
lizzare l’informatica a nostro vantaggio 
così come prendiamo il motorino per an- 
dare da qualche parte o leggiamo un 
giornale per reperire delle i riformazioni . 

Se siamo in grado di riparare il motori- 
no, cì muoviamo meglio e possiamo fare 
fronte a maggiori problemi, però in un 
caso o nell’altro dobbiamo essere sempre 
in grado di individuare quale è la meta, e 
quale la strada migliore per arrivarci. 
Quindi noi vogliamo insegnare un pò di 
informatica, per chi non la conosce^ e un 
pò di “norme di utilizzo'- per quelli che la 
conoscono c forse non sanno come usar- 
la he ne. 

Il Logo È lo strumento migliore per 
tare questo lavoro, diventerà quindi la 
“macchina 1 7 sulla quale intraprendere il 
nostro viaggio nel mondo delta soluzione 


Un viaggio 

nei mondo delia soluzione elettronica 
dei problemi a cavallo 
di una simpatica tartaruga . 
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elettronica dei problemi. Questa macchi- 
na, perù, sarà guidata da voi; allora, pri- 
ma di partire, bisognerà fare qualche le- 
zione dì “scuola guida”. 

Una prima lezione di guida 

Prima di tutto diamo un’occhiata al 
quadro dei comandi di questa simbolica 
auto; 


errori prima di eseguire i comandi e invi* 
ta a correggerli immediatamente* 
Immaginiamo a questo punto di pre- 
mere il tasto F7, digitare ALBUM segui- 
to da RETURN ; potremo così vedere la 
tartaruga (fig.2) ed ordinarle diretta- 
mente di fare qualcosa, 

A questo punto possiamo, semplice- 
mente premendo le lettere indicate nel 
quadro comandi, dire alla tartaruga di 
muoversi in avanti 10 passi [A], oppure 


gÉg 11 quadro «lei comandi f 

ALBUM 

QUADERNO 

A 

I 

D 

$ 

M 

<5 

U 

C 

AVANTI 

INDIETRO 

DESTRA 

SINISTRA 

MATITA 

GOMMA 

VOLA 

CESTINO 


Figura 1 


Come sì può vedere et sono due tipi di 
comandi, quelli di album e quelli di qua- 
derno; corrispondono ai due modi in cui 
sì può chiacchierare con E.LI.ANA., o 
forse è meglio dire con la tartaruga. Que- 
sto animaletto ci aiuterà in molte faccen- 
de, ma solo quando noi glielo 
ordineremo, 


Àlbum per disegnare 

Iniziamo con la pratica dei comandi di 
album, quelli dì sinistra. Una volta ini- 
ziata resecuzione del programma Logo, 
ci troviamo di fronte a quattro divette 
possibilità di utilizzo* Possiamo decidere 
di lavorare in modo del tutto autonomo, 
ed in tal caso premiamo H tasto F7, Se 
abbiamo bisogno di chiarimenti sul “vo- 
cabolario” di EXLANA., premiamo F5 
ed avremo la possibilità di controllare 
significato e sintassi delle varie istruzio- 
ni* Volendo eseguire comandi diretti sot- 
to il controllo di Logo, digitiamo FI ed 
analogamente premiamo F3 se vogliamo 
scrivere alcune linee di programma; in 
questi due casi E.LI.ANA. avverte degli 


indietro 0 passi PI, ed ancora a destra di 
45 gradi [DJ oppure a sinistra di 45 gradi 

[$]♦ 

Dobbiamo aggiungere che 11 comando 
[V] vola, serve per spostare la tartaruga 
senza che essa lasci traccia dei suo spo- 
stamento, mentre il comando [MJ mati- 
ta, fa esattamente il contrario. 

Quando siamo stufi del disegno che 
abbiamo fatto e vogliamo cancellarlo, 
possiamo usare il comando [CJ cestino, 
per “cestinare" la pagina di ALBUM; 
questa infatti verrà cancellata e la tarta- 
ruga tornerà nella posizione centrale in 
cui si trova inizia Unente. 

Si raccomanda di fare tanta pratica 
con questi comandi, cercando dt creare 
disegni sempre più belli c complessi, va^ 


La ooooinel la 

ai 

£§3 


Figura 2 



lutando quanta fatica bisogna fare per 
tracciare figure in questo modo, che, tra 
Faltro, in gergo si chiama modo diretto. 

Un'ultima cosa: se tracciate erronea- 
mente dei punti , questi possono essere 
cancellati dalla tartaruga; premendo i) 
tasto [G] gomma e ripassando, con i co- 
mandi di movimento (A*D,S,I), sulle 
tracce lasciate, queste si annulleranno. 

Ora vi chiederete come è possibile 
uscire dalla pagina di ALBUM per entra- 
re in quella di QUADERNO; semplicis- 
simo, basta premere il tasto RUN/ 
STOP; ma forse vi intere ssarà sapere a 
cosa serve la pagina di quaderno. 

Quaderno per scrìvere 

Quando siamo nell'ambiente quader- 
no, possiamo scrivere i programmi; per 
fare questo è necessario usare ì comandi 
scritti interamente e numerati secondo 
l'ordine in cui la tartaruga deve eseguirli. 
Alcuni dei comandi, che più propria- 
mente prendono il nome di istruzioni, 
appaiono nella parte destra della figura 
1 , 

Quando si danno ordini alla tartaruga 
da un programma, si può essere più pre- 
cisi nel numero di passi che questa deve 
compiere ed anche nel numero di gradi 
secondo cui deve ruotare. 1 comandi 
AVANTI e INDIETRO devono essere 
seguiti, infatti, da un numero che indica t 
passi da compiere. Questo vale anche 
per le istruzioni DESTRA e SINISTRA; 
qui il numero indicherà di quanti gradi la 
tartaruga deve “girare”. 


10 ALBUM 
20 MATITA 
30 AVANTI 20 
40 SINISTRA 90 
50 AVANTI 10 
60 INDIETRO 20 
70 FINE 


Queste righe numerate costituiscono 
un programma, il quale verrà eseguito 
ne IP ordine in cui vengono, appunto, nu- 
merate le istruzioni. Vediamo quindi co- 
sa succederà. 

Prima viene eseguita retrazione AL- 
BUM che ci porta nel mondo della tarta- 
ruga; poi MATITA ordina alTammalet- 
to di lasciare traccia degli spostamenti: 
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posizione iniziale 

— * ■ — ' ■ i 

Figura 3à 



avanti 20 


Figura 3b 


* 


sinistra 90 


Figura 3e 





nella riga 3(1 il comando AVANTI 20 gli 
indica di muoversi nella direzione in cui 
si trova (figura 3a) di 20 passi (figura 3b). 
SINISTRA 90 nella riga 40 significa: ruo- 
ta di 90 gradi alta tua sinistra (figura 3c), 
indica quindi un cambiamento di direzio- 
ne ad angolo Tetto. L'Istruzione elle se* 
gue, AVANTI 10, muove, infatti, la tar- 
taruga di 10 passi verso sinistra (figura 
3d), mentre il comando INDIETRO 20 
le indica di spostarsi indietro, sulla stessa 
direzione di 20 passi (figura 3e). Il risul- 
tato è una 'HT' T tracciata sullo schermò, 

Nella riga 70 c'è una parola nuova, 
FINE: ìndica che il programma finisce in 
quel punto; essa deve sempre apparire 
nel programma per indicare alla tartaru- 
ga che il suo lavoro è terminato. Quando 
la tartaruga trova il comando FINE, 
smette di eseguire istruzioni e sullo 
schermo ritorna la pagina di QUADER- 
NO. Per vedere di nuovo il disegno ese- 
guito basterà semplicemente digitare 
ALBUM seguito da RETURN, 

A proposito dì quest’ ultimo, dobbia- 
mo ricordarci che sì tratta di un comando 
importantissimo; tutte le volte che scri- 
viamo qualcosa, sìa che si tratti di un 
istruzione di.etta, come ALBUM, sia 
che si tratti di una riga di programma, 
dobbiamo pravare RETURN I comandi 
diretti senza RETURN non vengono 
eseguiti cosi come nel caso dì programmi 
le righe non vengono ricordate. 

Una volta scritto un programma come 
sopra, per farlo partire, occorre digitare 
ESEGUI. Questo corrisponde al coman- 
do RUN del BASIC; tale procedura di 
esecuzione viene anche detta “lancio 11 
dagli addetti ai lavori. 


Errori: niente patir n 

Se nella esecuzione di un programma 
si verifica qualche errore dovuto alla 
scorretta digitazione di qualche coman- 
do* il Logo si arresta e segnala il “baco- 
”con un messaggio. In gergo gli errori si 
chiamano bug, bachi e la correzione si 
chiama debug cioè eliminazione dei 
bachi. 

Questi messaggi sono in italiano, quel- 
lo più frequente sarà “errore di sintassi 1 " 
che corrisponde al “Sintax erior" del 
B ASIC In questo caso, se si tratta di un 
programma, il messaggio sarà seguito dal 
numero di riga in cui occorre Terrore. 
Digitando il comando LISTA, seguito 
dal numero della riga errata, è possibile 
vedere Terrore e correggerlo diret- 
tamente. 
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Da cosa nasce *‘c»sa” 


Questi sono solo alcuni comandi di 
E.LLAN^~ per iniziare a scrivere picco- 
le procedure, 11 programmino che segue 
li utilizza per costruire un disegno molto 
semplice; esso è un esempio di come si 
devono affrontare i problemi e di quale 
strategia bisogna scegliere per risolverli. 

L'analisi delle singole istruzioni la la- 
sciamo a voi mentre vogliamo spiegarvi 
come abbiamo affrontato la cosa. Il pro- 
gramma disegna una casa che noi abbia- 
mo definito elettronica, appunto perchè 
è stata costruita secondo un procedimen- 
to di tipo elettronico; una casa, vista di 
fronte, è composta di un triangolo, (il 
tetto) e di un quadrato (la struttura-.su cui 
poggia il tetto), 

Nm abbiamo individuato queste due 
parti e abbiamo trovato le procedure per 
disegnarle, separatamente, spezzettan- 
do il problema “casa"' in due problemi 
più piccoli: il problema “triangolo” e il 
problema “quadrato* 7 (figura 4). Da 
questo deve nascere una regola che non 
vuole essere tassativa: un problema 
grande può essere suddiviso in piccoli 
procedimenti di più facile soluzione. 

Vi consigliamo, però, di fare in un mo- 
do leggermente diverso: partite diretta- 
niente dalla creazione di pìccole figure, 
un triangolo, un rombo, una linea; poi 
legatele tra di loro t scopritene i risultati, 
forse vi deluderanno, forse saranno cosi 
interessanti da poter essere legati ad altre 
cose, finche l'album non sarà troppo pie- 
no. La tartaruga non si stancherà mai 
prima di voi; ma non fatelo diventare 
l'oggetto di una gara, su questo piano 
vìncerebbe sempre. Questa è una delle 
sue qualità, ma sono le stesse qualità di 
una buona auto; apprezzabili solo da chi 
la sa guidare bene. 


CASA ELETTRONICA 


100 ALBUM 
110 MATITA 


QUADRATO 


200 DESTRA 90 
210 AVANTI 20 
220 DESTRA 90 
230 AVANTI 20 
240 DESTRA 90 
250 AVANTI 20 
260 DESTRA 90 
270 AVANTI 20 


TRIANGOLO 


300 DESTRA30 
310 AVANTI 20 
320 DESTRA 120 
330 AVANTI 20 
340 DESTRA 120 
350 A VANI 1 20 
360 FINE 



Figura 4 
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-i-J uso diffuso degli elabo- 
ratori ha profondamente ri 
voi uz tonato Le tecniche di cal- 
colo numerico. Il calcolatore, 
infatti, a differenza dell'uo- 
m«, non ha grossi problemi di 

velocita. Contemporanea- 
mente, non ha nessuna capa- 
cita di prendere decisioni. 

Le tecniche che richiedono 
pochi calcoli, ma anche una 
rietahorazione del problema, 
utili per abbreviare i tempi di 
lavoro, in uso fino a circa ven- 
tanni fa, sì cerca ora di sosti- 
tuire algoritmi iterativi, basa- 
ti su semplici operazioni., piu 
adatti al tipico modo di elabo- 
rare un problema dei 
computer. 

1 1 problema della soluzione 
di un sistema, di n equazioni 
lineari ed n incognite, non de- 
ve più perciò essere affrontato 
in funzione del numero dì cal- 
coli, ma della semplicità della 
formula ricorrente applicabi- 
le. Evidentemente, gli errori 
commessi manualmente, o 
con il semplice uso di una cal- 
colatrice non programmabile, 
vengono quasi completamen- 
te eliminati dall * uso del com- 
puter (eventuali errori sono 
prevedibili e non casuali) e la 
velocità di soluzione è incoro- 


IN CLASSE 

QUALSIASI COMPUTER 


Sistemi 
di equazioni 

Come cavarsela , quando a scuola 
capita un sistema di equazioni 
a dieci o più incognite? Con 
questo programma, il problema 

è risolto . 


parabilmente superiore, 

À chi obiettasse (*‘la solu- 
zione di un sistema di due o tre 
incognite, è un gioco da ragaz- 
zi'' 1 ), chiedo se abbia mai pro- 
vato a risolverne uno con dieci 
o più, senza commettere un 
solo errore, e quanto ri ha 
messo* 

Sue Ita del 3 'algoritmo 

Non conviene usare il meto- 
do di Cramer, che richiede un 
programma alquanto compli- 
cato ed inoltre piuttosto lento. 
Non sono da prendere in con- 
siderazione t metodi di con- 
fronto o sostituzione * l puri M , 
in quanto, pur relativamente 
veloci, richiedono una certa 
intelligenza attiva, caso per 
caso, che non sì può ottenere 
senza un programma com- 
plesso e quindi lento* 

s 

sz i e preso in esame un pro- 
cedimento basato sulla possi- 
bilità di trasformare la matri- 
ce A dei coefficienti e dei ter- 
mini noti del sistema, in una 
matrice P canonica, avente 
cioè tutti gli elementi al di sol* 
to della diagonale principale 
uguali a zero ( p(r,c)=0 se 
r>c)* 

Il problema consiste evi- 
dentemente nel trovare l’algo- 


ritmo che permetta la sostitu- 
zione di P ad A. 

Il metodo triangolare 

Questo procedimento è di 
mia elaborazione, e si adatta 
molto bene alle capacità di un 
computer, come al lavoro ma- 
nuale. Il nocciolo dell’ algorit- 
mo è la conversione di un si- 
stema del tipo di figura 1 (fac- 
cio esempio a quattro ingegni- 
le), ori sistema di figura 2. 

In questo sistema, la prima 
equazione comprende tutte le 
n incognite, la seconda n-l, la 
terza n-2, è la quarta n-3, cioè 
una sola. 8 ,■ ultima equazione 
è perciò già risolta. Sostituen- 
do il valore di X4 nelle equa- 
zioni precedenti, si otterrà 
una matrice canonica con una 
riga e una colonna in meno. 
Da cut si avrà dì nuovo un'ul- 


tima equazione direttamente 
risolvibile, e cosi via fino ad 
a vere una sola equazione. 

¥T 

sando coefficienti nume- 
rici, è facile vedere come il 
problema della trasformazio- 
ne di A in P sia molto sempli- 
ce, oltreché veloce. Prendia- 
mo come dato ìt Sistèma I (S I ) 
di figura 3, 

Da E LSI, che troviamo in 
figura 4, sostituendo ad XI il 
suo valore nelle equazioni se- 
guenti, otteniamo un nuòvo 
sistema con un'incognita in 
meno nelle n-1 equazioni che 
seguono la prima, e che chia- 
miamo S2 (figura S K 

Con un procedimento simi- 
le, da E2S2, otteniamo la figu- 
ra 6, sostituendola nelle ulti- 
me due equazioni un nuovo 
sistema S3, con due incognite 




+ Q 

*2 

+ ®13 

*3 

+ «1.4 


+ «1,S 

= 0 


x, 



+ S 2,3 

4 

+ a 7A 

X. 

4 

* a t, s 

= 0 

ff 3,l 


+ 

X i 

+ *3,3 

x 3 

+ «3,4 

*4 

+ «3.5 

= 0 



* *3,2 

*2 

+ «4.3 

*3 

+ «4,4 

*4 

» 

+ «4,5 

= 0 


Figura 1 
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X 

+ p 

x. 

+ A A 

2 

L3 


1.4 

X 2 

+ ^ 2,3 


* P 1A 



X 3 

+ ^ 3,4 


X A 

+ A , 

- 0 

4 

1 >5 


r, 

+ A c 

= 0 

4 

2,5 


x A 

+ P, z 

* 0 

4 



*4 

^4.3 

= 0 


Figura 2 


2 X l 

+ 

X * + 

*3 + 

*4' 

il = 0 

(E1S1) 

3 X j 



*3 + 

2 X „- 

18=0 

! E2S1 ) 

4X, 

+ 

3 X 2 + 

2^ J+ 

X i 

20 - 0 

(E3S1) 

X , 

+ 

x 2 + 

*3 + 

x c 

10 * 0 

(E4S 1} 


Figura 3 


in meno, nelle ultime due 
equazioni (vedi figura 7). 

Da E3SR otteniamo 

Xi=-8X*-35 

sostituendo a X3 il suo valore 
in E4S3, rinviamo il sistema 
cercato, S4, (vedi figura 8), la 
cui matrice dei coefficienti e 
termini noti è la canonica P e 
le cui soluzioni sono evidente- 
mente le stesse di SI. 

Come si può vedere, la co- 
struzione di $4 si ottiene con 
un semplice processo iterati» 
vo, perciò facilmente traduci- 
bile in un programma 
efficiente. 

a qui in avanti la determi» 
nazione delle radici XI, X2, 
X3, X4 è immediata. 

Da E4S4: 

X4=4 

Sostituendo Xrin E3S4: 

X 3 +32.35=0 

X3 =3 

Sostituendo X 4 in E2S4: 

X 2 +(I/5)X >13/5=0 


EdaX4ÌnElS4: 

Xi-Hl/2) Xi-H'I/2) 

X3*7ft =fl 

Da cui si ottiene il sistema a 
n-1 incognite SS, che trovia- 
mo in figura 9. 

Sostituendo X3 in EIS5 e in 
E2S5 otteniamo un sistema a 
n-2 incognite, che chiamere- 
mo S6 e che si può trovare in 
figura 10. 

Sostituendo Xì ìti EIS6 ot- 
teniamo l'equazione S7 (in fi- 
gura in* 

I>a cui derivano le tanto 
agognate soluzioni. 

Xi^l 

Xs = 2 

Xj = 3 

X4 — 4 

Questo metodo, molto sem- 
plice matematicamente, ha il 
vantaggio, per il computer, di 
essere molto veloce e di non 
richiedere molta memoria: 
come abbiamo infatti visto, è 


necessario impostare una soia 
matrice A, all'interno della 
quale si possono svolgere tutti 
i calcoli necessari per ottenere 
P, senza dover conservare i 
coefficienti originali. 

Per le verifiche di assordita 
o indeterminazione, vedere il 
commento al programma. 


U passo seguente è la scelta 
del linguaggio di programma- 
zione* Nonostante il PASCAL 
fosse preferìbile per molli mo- 
tivi, ho scelto il BASIC perchè 
è il linguaggio principale di 
inultissimi personal e home 
computer. 

west© programma, a par- 
te minime modifiche, è infatti 
usabile su qualsiasi elaborato- 
re dotato di Microsoft BA- 
SIC © equivalente 
(Applesoft.,,)* 

11 programma è diviso in sei 
parti principali; 


• r.OO 1-004 Intestazione. 

• r.GlO-099 DATA con coef- 
ficienti e termini noti* 

• r. 100-1 IO passi* 
ft r« 120-140 passi. 

• r. 140-170 pass3. 

• r 180- 230 normali zzator e . 


1 rem” Sea = 7 

2 rem” 

3 rem” di Ezio Armando: 
tei. 0I0/2I5569 

4 rem” 

Una parte di programma 
che, essendo composto di soli 
REMarks, ha la sola funzione 
di intestatone del 

programma* 

ì Data 

Nel DATA della riga 10, bi- 
sogna inserire il numero di 
equazioni del sistema, per 
esempio, con un sistema a 
quattro equazioni e incognite : 
10 data4 

nelle righe i 1-90 vanno inseri- 
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X, = - (1/5) X 3 - (3!5)X a *5 

Figuri 6 


x l * m x % 

+ d/2) 

*3 

* m x A 

- 11/2 

= 0 (EIS3) 

W) x 2 

+ (1/2) 


+ m x A 

- 25/2 

= 0 (E2S3) 


m 

x 3 

* (8/5) X A 

+ 7 

= 0 (E 03) 

■ 

m 

x 3 

+ (2/5) X A 

■ 4 

= 0/E4S3) 

Figura 7 







li i coefficienti delle equazioni 
e relativi termini noti, per 
esempio T col sistema di figura 

n . 

I DATA diventeranno: 

11 datal,M,I,-lO 

12 datai, l t l, 2,-14 

13 datai, 1J, 1,-11 

14 data4,3,2,V20 

T 

a scelta dì mettere i coeffi- 
cienti in forma di DATA, è 
stata dettata dalla comodità di 
correzione degli stessi tramite 
Pedi (or dei Commodore e dal- 
la scomodità di creare una ap- 
posita procedura di input ed 
eventuale correzione, 

passi 

$i occupa dì iniziali zzare la 
matrice dei coefficienti e le va- 
riabili ti$ e 1$, 

100 print^passl”: 
ti$— “000000^: readn: 
d imm(n +2 T n +2), n( n ): 
fori — Unni for j= Iton + 1 
110 réàdmt i J): next: 
m{n+2,i}=i: next: 
t$=chrS(lS7): prinP*pass2” 

1 due PRLNT servono solo 
ad indicare all’operatore a 
die punto è la soluzione del 
sistema. 

Nei Commodore, la varia- 
bile fi$ è l’orologio interno, 
che ora viene azzerato per 
consentire il calcolo del tempo 
impiegato. Per i C-B.M. 500, 
600 e 7(|0 bisogna cambiare 
ti$=**000000” con 
tiS— “0000060” (sette invece 
di sei zeri) perchè questi ulti- 
mi hanno invece i decimi di 
secondo inclusi in ti$. 

À Ha variabile 1$ viene dato 
il valore di chr$(157), cioè 
[SHIFT] [CRSR=>] che ser- 


ve nell "output delle soluzioni. 
Peraltro sia 1$ che ti$, nei 
computer non Commodore 
possono essere eliminate sen- 
za compromettere l’efficienza 
del programma. 

La prima istruzione fonda- 
mentale è READ n che legge il 
numero di equazioni nel DA- 
TA della riga 10, 

Vengono poi dimensionate 
la matrice di lavoro VI, avente 

■ f 

n +2 colonne e n +2 righe e il 
vettore N avente n dementi, 
dove alta fine del programma 
saranno posti i valori delle 
soluzioni. 

I) doppio ciclo nidificato: 

for i=! ton ■ 

for j— l to n + 1 

rcad m(i,j) 

nexl 

m(n+2,i)— i 
next 

legge i coefficienti e i termini 
noti del sistema (READ 
m(L,j)) ponendoli nella matri- 
ce M. Inoltre la riga n +2 della 
matrice viene riempila con i 
numeri da 1 a n* 

Questa riga, apparente- 
mente inutile, serve a nume- 
rare le colonne ddla matrice, 
che i certi casi, spiegati dopo, 
vengono tra dì loro scambiate 


per permettere la soluzione 
del sistema. Vengono così 
scambiati anche i termini del- 
l'ultima riga della matrice, 
che erano numerati progressi* 
v ameni e, potendo così risalire 
all’ordine originate delle 
colonne. 

passi 

Sì occupa di trasformare la 
matrice m in una malrice 
diagonale, 

126 fori = Iton: 
ifa=0then gosuh 18(1 
130 forj^lton+I; 
m(i j>— m(ì4>/a: next: 
forj“i+lton: 

140 for K=i+ Iton 4-1: 
m(j, K> =m(j T K)-m(i ,K) * a : 
nextKJJ: prmt“pa*3” 

che messo in un modo più 
schematico diventa: 

fori=l to n 

a=m(l,l) 

ìf a =0 then gosub 181) 
for j=i+l to n 
m(i j j)=m(i f j)/a 

next 

for j— i+1 to n 
a=m(j,ì) 
nHj T i)=0 

for K— i+1 to n+1 

ma,K)=m(jiK>- 

M(i,K)*a 


next 

netx 

next 

Il ciclo principale (i) scorre 
le righe dalla prima all’ulti- 
ma. Il test di a— 0 serve per 
individuare se, arrivati all’e- 
quazione i-csima, il coeffi- 
ciente di Xi sia uguale a zero, 
non potendo quindi ricavarsi 
da quell’ equa zinne il valore di 
Xi stesso. Nel qual caso, sis 
saltu alia subrciutine ISO che 
modifica il sistema per ren- 
derlo risolvibile- 

¥ 

A- 1 primo ciclo j serve per di- 
videre tutta l’equazione i per 
il coefficiente di Xi. Per esem- 
pio trasforma l’equazione: 
2X« +4X2+3X3 + 10^0 
in: 

X ì+ 2X2 +(3/21X3 +5=0 
di equivalenti soluzioni, ma 
da cui sì può faci fissi ma meni e 
risalire al valore di Xi. 

Il doppio ciclo segue ne si 
occupa appunto dì questo: az- 
zera i coefficienti al di sotto 
della diagonale principale e 
somma il valore dì Xi ricavato 
dall 'equazione i nelle equazio- 
ni seguenti, moltiplicato per il 
coefficiente di Xi delle equa- 
zioni interessate. Vengono 
quinti dimoiati tutti gli Xi 
nelle equazioni seguenti la nu- 
mero i. 

erigono conclusi così ì tre 
cicli e viene scritto Spassi” a 
indicare all 1 operato re che 
questa parte sì è conclusa. 

E 7 interessante notare co- 
me con tre righe di program- 
ma si riesca a spiegare al com- 
puter la stessa cosa che ha ri- 
chiesto più di una pagina di 
esempi per essere spiegata ad 
una persona, 

p ass3 
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Ricava* dai sistema oramai 
triangolare in M, i valori di X 

e li pone in N, Quindi li scrive. 
140 F0R K=]+l TO 
N+ 1 s MC J ,K ) s 
k 3 jrK 

>*fì:!NEXTK, J , 

I SPRINT "PASS 
3'NpQR J=N T 
□ 1 STER -1 
150 K=M<J,N+1)BF 
OR J=J-1 TO 
1 STEP - 1 : M( 

] t N+ ì ) =M< l rN 
+ ì ) -M < I )*K 
i M( I , J)-0!NE 
XTI , J 

J 60 POR 1-1 TO N 
e N <M<N+2 f 1 ) ì 
= -M < I r N+ 1 ) i N 
EXT! FOR 1=1 
TO N* PR INT"X 
M JL*"="N< 1 ) 

L ^ 11 ^ 11 

170 NEXT SPRINT 

print 4 * Tempo impiegato:” 
itti <ti/*6,5)/10(F 4 sec7':end 
Questa sezione può essere 
ulteriormente divisa in tre 
partì: calcolo delle radici, or- 
dinamento in N* stampa. La 
prima parte diventa: 
for j=n to 1 step* E 
K~m{j,n+1) 
for i=j-l to Istep- 1 
m(l,n+l)— m(ì,n+1) 

fn(T j) — ® 
next 

nexl 

I, artendo dall * ulti ma equa- 
zione (che sappiamo già risul- 
ta)* sostituisce il valore di Xj 
in tutte Le precedenti* cosicché 
ora sarà la penultima ad esse- 
re di rettamente risolvibile* e 
la sua soluzione da sostituirsi 
nelle equazioni precedenti, 
inoltre* vengono annullati (m 
(i s j)=0) i valori dei coefficien- 
ti già sostituiti* 

Dopo questa routine* avre- 
mo una matrice con gli de- 
menti della diagonale princi- 
pale uguali ad uno* e gli ele- 
menti della n+1 esima colon- 
na uguali ai valori cambiato di 


segno delta radice corrispon- 
dente* Per esempio: 

10 0 0-1 
da cui Xt = t; 

0 t 0 0 -2 
da cui X2=2; 

0 0 10-3 
da cui X3=3: 

ODO 1 4 

da cui X4=4. 

inoltre* la riga n+2 sarà com- 
posta dai numeri da I a n cor- 
rispondenti al numero della 
radice presente sulla colonna. 

Ricordo infatti che* in certi 
casi* delle colonne possono es- 
sere staTe scambiate tra di lo- 
ro, e con esse i valori nella riga 
n 4-2 che non sono altro che i 
numeri “originati” della co- 
lonna interessata e quindi del- 
la radice- 

Ad esempio* potrebbe veni- 
re una matrice così composta: 

1 D D 0 3 
0 10 0 -4 
0 0 10-2 
0001-1 

coti la riga n +2 cosi 
composta: 

4 2 3 1 

che vuol dire che* in effetti * 
la soluzione die sì ricava dalla 
prima riga e la quarta* e non 
la prima. 

Per cui: X4~3 e non XI =3 
(ricordo che i valori delle solu- 
zioni hanno il segno opposto). 

Analogamente, vediamo 
che dalla seconda riga si rica- 
va La seconda radice ( tn que- 
sto caso numero di radice e 
colonna coincidono), per cui 
X2 =. Cosi anche X3=2. L'ul- 
tima colonna ha come n+2 
esìmo elemento “1” e quindi 
dall’ultima riga si ricava il va- 
lore di X Un questo caso 1. 

O 

uesto “riordinamento” 
secondo V ordine originale 
viene svolto direttamente nel 
vettore Ns 


for i — I to n 

n(m<n+2 T i))— m(i*n +1) 

next 

che scorre tutte le righe (i) 
ed assegna ad n(m(n+2,i)), 
che è poi n( numero d'ordine 
originale della soluzione)* il 
valore* opposto, della corri- 
spondente riga. 

Neir esempio precedente: 

10 0 0-3 
0 1004 
0 0 10-2 
0 0 0 1 4 

con la rigo n+2 così 
composta: 

4 2 3 1 

La routine, per prima cosa, 
con ì=i, assegna a 
n(m(n+2,t)) il valore di - 
m(i*n+I) (ricordo che n è il 
numero di equazioni ), e quin- 
di: 

n(m(6 , 1 )) =-m ( 1 *5) 

Visto che m(ó f l) è uguale a 
4, assegna ad n(4) il valore - 
cioè 3. Da cui X4=3* 
Continuando* assegnerà ad 
n(2) il valore dato da -m(2,5) e 
cioè 4, a n(3) quello dato da 
-m{3,5), quindi -2. Infine, con 
i^* n(m(6,4))=-m(4,5). Ne 
consegue che n(4)=-L 

Abbiamo così, in N, ì le ra- 
dici XI ordinate come lo era- 
no all’inizio, cioè come lo era- 
no nei DATA, 

La seguente sottoparte non 
fa altro che scrivere ì valori di 
Xì, ora contenuti nel vettore 
N. 

i “ 1 : -• , . - 1 

x x + m X 2 * (1/2) x 3 + 
(5/2) X 2 + (1/2) X 3 + 

m x 2 + 

+ 

j Figure 8 


fori- 1 ti> n 
print 

next 

f accio notare che quasi tut- 
ti i punti e virgola nel FRINÌ' 
sono inutili per il C.EUVf. Mi- 
crosoft BASIC (runico neces- 
sario è quello tra i e 1$), ma 
per altre implementazioni 
BASIC sono assolutamente 
necessari. Ricordo che la fun- 
zione di IS è puramente esteti- 
ca e quindi, su personal non 
Commodore può essere elimi- 
nata senza conseguenze. 

I ufi ne viene scritto il tempo 
impiegato; 

print “Tempo impiegato:”; 
int(ti/. 6,5)/ 1 W;“sec. 1 ’ :end 
Per i punti e virgola vale il 
discorso precedente. La va- 
riabile ti, tipica del BASIC 
Commodore indica, in sessan- 
tesimi di secondo, il tempo 
trascorso dall'azzeramento di 
ti$, visto che una assegnazio- 
ne del tipo ti^O causa un 
SYNTAX ERROR* 

a semplice form aletta 
adottala serve solamente a 
convertire i sessantesimi in se- 
condi, arrotondando il valore 
a due decimali (centesimi di 
secondo). E' evidente che 
questo calcolo del tempo è pu* 
riunente un extra, ma è utile 
per studiare il metodo. Agli 
interessati diro che il sistema 
usato negli esempi precedenti 

” 

(1/2) X 4 - 11/2 = 0 { E1S4 ) 

-M 

(3/2) X 4 - 25/2 = 0 ( E2S4 ) 

' 

(8/5) J 4 * 7 =0 (ESS4) 

X A ~ 4 = 0 (E4$4j 
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viene risolto* col mìo Commo- 
dore 64* in un secondo e 53 
centesimi. 

L’ uso ddJ ’ istruzione K N JJ c 
necessario perchè in coda vi è 
una sub muti ne alla qua te pas- 
serebbe erroneamente il con- 
trollo se non ci fosse LEND. 

Aggiustamento 
dei sistema 
e analisi di errori 

Questa parte del program- 
ma è particolarmente interes- 
sante. Riconosce infatti se il 
sistema è assurdo o contiene 
delle combinazioni lineari. 

100 for i=ìton+L ifm(Li) 
=0then next: goto 230 
mi iti (n+lthen 210 

200 print “IL SISTEMA è 
ASSURDO;’*; print “L” 
equazione* * ; i ; 1 ” è i ncoeren- 
te*”r end 

210 forici + Itoli : jj = l: 

ifm(ì Othen next: goto 230 

220 next: fori — iton +2; KK = 
m(l,i)=mO,jj)=KK: nextl: 

a = return 
230 print “IL SISTEMA è IN- 
SOLUBILE;” t print “1" 
equazione “;i;” è inaccettabi- 
le* 

Ricordo che questa subrou- 
tine viene invocata nella riga 
120 se non sì può ricavare da 
una data equazione i il valore 
di Xi, e quindi it coefficiente di 
Xi è uguale a zero, 

Nella riga ISO viene esaminata 
l'equazione i; se luti i coeffi- 
cienti e il termine noto sono 
ugnali a zero, si dimostra che 
liquazione è una combina- 
zione lineare di altre prece- 
denti, il controllo passa alla 
riga 230 segnalando il pruble- 


programina. 

S e invece vi è un coefficiente 
e/o il termine noto diverso da 
zero, si passa alla riga seguen- 
te, la I9t). Se è un coefficiente 
ad essere diverso da zero, si 
passa alla riga 210, altrimenti 
è il solo termine noto ad essere 
diverso da zero, indice dì 
un'equazióne assurda del 
tipo: 

0X = 10 

che chiaramente priva di 
senso* Un simile problema 
può essere causato da due 
equazioni inconciliabili del 
tipo: 

X i + X z — 10 
Xi + Xi-3 

Anche in questo caso il pro- 
gramma segnala V errore e si 
blocca. Se invece non vi sono 
problemi, e quindi nella i esi- 
ma equazione vi sono dei coef- 
ficienti diversi da zero* prov- 
veda a scambiare la colonna 
con quella che ha causato il 
problema, per esempio, dato 
il sistema di figura 13. 

dove, dalla seconda equa- 
zione non sì può chiaramente 
ricavare il valore di X2 T per 
cui il programma provvede a 
cambiare il sistema nel modo 
descrìtto in figura 14* 

che avrò le stesse soluzioni 
del precedente, ma la seconda 
e ìa quarti) saranno scambiate 
tra loro. Inoltre saranno 
scambiati tra loro anche i va- 
lori nella riga-indice della ma- 
trice, la n +2 per cui da 

2 2 3 4 

diverrà 
14 3 2 

dalla quale si potrà stabilire 


che sono state scombuiate tra 
loro la seconda e la terza radi- 
ce e che quindi dalla seconda 
equazione si avrà non II valore 
di X2 ma quello di X4 e vice- 
versa. Questo stratagemma 
permette di risolvere qualsiasi 


sistema senza peraltro perde- 
re Lordine originale delle 
soluzioni. 

In conclusione. L’uso è am- 
plia mente spiegato dall’anali- 
si dello stesso: basta porre il 
numero di equa/ioni* ì coefTi- 
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■ - 

X 1 + X 2 + X 3 + 2X 4 - 11 

= 0 

x 3 + 4 X 4 - 19 

- 0 

X 2 + 3 X 3 + X 4 - 15 

= 0 

2X 2 + 2X 3 + X 4 - 14 

0 

é 

II 

i- 

Figura 13 



denti e i termini nati nei DA- 
TA * battere RUM. 

Per avere un output su car- 
ta delle soluzioni, finita Pela- 
ti orazione* battere: 
0pen4,4,7: fori=Iton: print 
=£4 t = ì f n(i): next; 

dose 4 


(per altri BASIC: 
fori = Itoli: lprint* i X”;ì; u = 
n(Ì): next) 

Eventuali modifiche sono 
molto facili, come V inclusione 
in programmi di più ampio 
respiro. 



Conclusioni 

I Riti proposti, cioè la velo- 
cità di elaborazione . capacità 
di riconoscimento di errori, 
program ma più semplice pos- 
sibile e minima occupazione 
di memoria sono stati 
raggiunti. 


vevo anche provato Fuso 
del metodo di Banachiewicz, 
ma richiedeva ben tre matrici 
in memoria, era più tento e 
dava dei problemi in fase di 
riconoscimento degli errori ed 
è quindi stato scartato in ex- 
tremis* 


1 

£ 

REM 

« 

■ 

SISTEMI DI EQUAZIONI 

3 

4 

REM " 

■ 

» 

DI EZIO ARMA MIO - 

QENOVA 

10 

DATA 

ONI 

4 • REM NUMERO DI 

EQUA2 I 

1 1 

DATA 1,1, 1,1, -10: REM 
EQUAZ IONE 

PRIMA 

12 

DATA 

A - " 

1,1,1, £,-14: REM 

SECONO 

13 

DATA 

« n 

£,1,1, 1,-11: REM 

TERZA 

14 

DATA 

4,3,2, 1 REM 

QUARTA 


15 : 

100 PRINT"PASS1 11 i T I$ = "000000 n : READ 
N:DIH M<N+£,N+£},N<N);FOR 1=1 
IO N5F0R J= 1 TO N+l 
110 READ M< I / JJ:NEXT:M<N+£, I>-I:NE 
XT*R = 2 S L$=CHR$( 157 > : PR INI 11 PASS 
2 " 

120 FOR I=t TO Hi A=MC I , I ) : IF A=0 T 
HEN 80SUB 180 
130 FOR J = I TO N+liMU 

! NEXT l FOR J=I' + i TO N;A=MCJ,I>; 

M< J r I > =0 


140 FOR K= I + 1 TD N+l :M< J,K>=M< J f K> 
~M( I ,R)*AsFC^TK,J|.I*PR INT "PASS 
3 " E FOR J =N TO 1 STEP -1 
150 K-M(J,N+1 >:FOR 1-J-l TO 1 STEP 
-1 lM< I ,N+U»M< 1 ,N+1 )-MT 1 ,J>*K 
SM( I , J > =0 ! NEXT I ,J 

160 FOR 1 = 1 TO N!N(M(N+£,I)) = -MU / 
N+ 1 ) s NEXT i FOR 1*1 TO N : PR I NT " X 
t i;LS l, = ,, N< I)LS tT ; % 

170 NEXT : FR I NT i PR IhfT* TEbFO IMPIEGA 
TOs * INT<TI/.6+.5)/100 B SEC, "lEN 
D 

180 FOR L= I TO N+UIF M<L,I)=0 THE 
N NEXT; GOTO 830 
190 IF L<N+I THEN £10 
£00 FR INT" IL SISTEMA E 1 ASSURDO; H s 
PR INT "L 1 EQUAZ IONE Jl I "E 1 INCOER 
ENTE. " : END 

£10 FOR L == I + 1 TO Ni JJ”L s IF MCI,L> = 
0 THEN NEXT: GOTO £30 
£20 NEXT: FOR L*I TG N+2 s KK =M<L , I > a 
MCL, I )=M(L,JJ>2M<L,JJ>=KK:NEXT 
:A=M< I , I> s RETURN 

£30 PRINT" IL SISTEMA E 1 INSOLUBILE 
J " s PR INT"L ' EQUAZIONE" I "E 1 INA 
CCETTAB ILE * " 
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Le stampanti MT/55, a 80 colonne, e MT/8Ó, a 13 ó 
colonne, rappresentano una nuova frontiera nel 
settore delle stampanti a basso costo, 

Basso costo, ma non bassa qualità e basse 
prestazioni, infatti ecco le credenziali di questi due 
nuovi prodotti, 

Velocità a 180 cps. bidirezionale ottimizzata, NLQ 
c 45 cps, r grafiche, possibilità di 8 fonti alternative 
ai caratteri e naturalmente la completa 

compatibilità con il PC IBM, 

Il prezzo: il più competitivo dei 
mercato in questa fascia di 
prestazioni, 

Naturalmente anche le MT/S5/8Ó 
oltre ai trattori hanno anche 
trascinamento a frizione e 
consentono pertanto il 
trattamento del foglio singolo. 



2QQ94 Coricò (Mi) - Vs-a Cadomosto, 3 
Tei, 0)2) 4502850/856/860/605/670 - Tele* 3*137 1 Taliy i 
00137 Roma - Via I Osi Lungo, 42 - Te) (06) 6278^58 
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DIDATTICA 

COMMODORE 64 


Le porte logiche 

dì Bruno Sortine 


Uno spunto per 
iniziare a togliere 
quell alone di 
mistero che circonda 
il mondo 
deWhardware 


y i siete mai chiesti die cosa c’è dentro 
un computer? Probabilmente qualcuno 
ha pensato a piccoli omini gialli (ovvia- 
mente made in Japan), muniti di carta e 
penna, racchiusi stretti stretti sotto la 
tastiera. 

Sveliamo Parcano! A 11 1 interno di un 
computer vi sono solo delle piccole sca- 
toline nere con qualche piedino 
metallico. 

Come è possibile allora il calcolo così 
ra pido e preciso de I Ve I a boranone Basic ? 

In quelle piccole scatoline (chiamate 
circuiti integrati), dimorano delie porte 
Logiche. 

Si tratta di dispositivi dotati di ingressi 
e uscite, (d’ora in poi definite I/O, da 
Input/output), in grado di riconoscere gli 
stati binari di ingresso e di fornire in usci- 
ta ancora uno stato binario che è funzio- 
ne esclusivamente del tipo di porta e del- 
lo stato degli ingressi nell’istante 
considerato. 

Lo stato binario (o stato logico) è una 
delle due possibili condizioni che può 
assumere un terminale di I/O . Può essere 
riconosciuto solo come livello “ 1” (op- 



pure alto, vero) e livello “CT (oppure 
basso, falso). 

Con l'aiuto di questo programma po- 
trete vedere sul video i risultati delle ope- 
razioni di tre porte logiche (dei sette tipi 
esistenti), collegate tra Loro, 

Un po’ di elettronica 

Una porta logica deve essere conside- 
rata (specialmente nei primi approcci), 
una black box, ovvero una scatola nera, 
con un certo numero dì ingressi e di 
uscite. 

I sette tipi esistenti sono: 

AND, NAND, OR, NOR, OR ESCLU- 
SIVO, NOR ESCLUSIVO, NOT. 

D’ora in poi prenderemo in considera- 
zione solo porte con due soli ingressi ed 
un'uscita (così come sono considerate 
nei programma). 

Porta AND esegue il prodotto logico A 
* R = U, dove A c B sono gli ingressi e U 
rappresenta I 1 uscita. Per tale porta varrà 
una ben determinata tavola della verità, 
cioè la tabella che permette di individua- 
re quale sarà lo stato d'uscita al variare 
degli ingressi. 
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A B U 

0 0 O 

0 1 0 

1 0 0 

1 1 1 

Porta OR esegue la somma logica A + 
B = U 

A B U 

0 0 0 

0 l 1 

1 0 1 
1 1 1 

A voi il compito di “scoprire “ te altre 
tavole. 

Una precisazione: il piccolo pallino 
che compare a volte air uscita di una por- 
ta logica significa che in uscita è posto un 
INVERTER , 

Un “invertitore’* è un’altra piccola 
scatolina che rovescia lo stato di 
ingresso. 

La tavola della verità di questa porta 
sarà infatti: 

A U 
0 1 
1 0 

Avrete altre notizie sul l’elettronica di- 
gitale (sulle porte logiche) digitando il 
programma, e divertendovi a studiare i 
diversi comportamenti delle numerose 
corti hi nazioni che il programma è in gra- 
do di simulare. 

Come gira iJ programma 

Dopo il RUN ed una breve attesa per il 
caricamento delle linee DATA, appare il 
primo quadro con tre porte AND. 

A questo punto Tu (ente può cambiare 
il tipo di porte visualizzate, semplice- 
mente agendo sui tasti funzione (Fi, F3„ 
F5) t oppure saltare al quadro successivo 
{barra di spazio). 

Il secondo quadro dà la possibilità di 
variare gli ingressi dei sistema (sempre 
attraverso i tasti funzione) e permette di 


vedere le corrispondenti variazioni 
d’uscita. 

Premendo nuovamente ta barra spa- 
ziatrice possiamo tornare al punto di par- 
tenza, oppure esaminare la tavola della 
verità -dell* intero sistema visualizzato. 

Facciamo un esempio. 

Dopo dieci secondi da! RUN appare il 
solito schermo con le tre porte AND. 

Premiamo due volte il tasto FI e una 
volta il tasto F5. 

A questo punto dovreste avere visua- 
lizzato un OR e un NANO in ingresso, 
più il solito AND di uscita. 

Premete la barra di spazio e scegliete 
l’opzione di “cambio ingressi”. 

Lasciatevi guidare dalle fantasie più 
bizzarre cambiando, come più vi aggra- 
da, gli stati di ingresso e osservando co- 
me variano le uscite. 

Appena placata la vostra sete di sape- 
re, potete premere di nuovo la barra di 
spazio e scegliere fopzione della tavola 
della verità. 

Il computer vi presenterà la tabella de- 
gli stati logici di I/O relativi al circuito in 
esame, 

Kemarks 

Diamo ora una brevissima descrizione 
del programma, in quanto riteniamo che 
sia più “istruttivo'’ in funzione, piuttosto 
che come esempio di programma Basic, 


Riga 100-245 carica i DATA degli sprite 

ed inizializza le variabili; 

riga 250-530 crea la grafica del primo 

quadro; 

riga 540-640 gestisce tasti funzione per il 

cambio delle porte; 

riga 650-760 scelta secondo quadro; 

riga 770*870 gestisce tasti funzione per il 

cambio degli ingressi; 

riga 800-988 cambia sullo schermò lo 0 in 

1 e viceversa; 

riga 090-1080 gestisce gli ingressi e ritor- 
na, nelle variabili Ul, U2 e U le uscite 
delle porte; 

riga 1090-1100 visualizza le uscite delle 
tre porte; 

riga 1110-1240 simulazione delle porte; 
riga 1250-1270 scelta terzo quadro; 
riga 1290-1850 gestisce terzo quadro (ta- 
vola della verità); 

riga 5000-5320 gestione grafica delle por- 
te logiche ; 

riga 10000*10570 linee DATA degli spri- 
te, checksuirt di eventuali errori di copia- 
tura e variabili di ingresso per le tavole 
della verità. 

Una raccomandazione (la solita), pri- 
ma di dare RUN: appena digitato il pro- 
gramma, salvatelo su un supporto ma- 
gnetico (disco o nastro). 

Potreste correre il rischio di inchioda- 
re gli omini gialli., , pardon, gli integrati 
del computer e perdere, ahimè, tutto il 
lavoro di trascrizione. 


Le immagini di questo fascicolo 
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100 REM SIMULAZIONE DI 
110 REM PORTE LOGICHE 
120 REM COL COMMODORE 64 
130 REM DI BRUNO SORTI NO 
140 : 5 

150 REM SHIFT & (=PREhCRE SHIFT + 

rii) 

160 REM CtClR & SPREMERE TASTO CO 
MMGDORE * . . , ) 

200 s 

210 PR INT" tCLEAR] IB1ANC0H4 DOWN I " 
J SPC C 1 0 ) ; " ATTENDERE 9 SÉCOND I " 
215 FOR A=0 TO 63 : READ BiCl=Cl+B:P 
ORE 12352+A,BiNEHT: IF C 1 < >7695 
THEN E=1 :GOTO 240 

217 FOR A=0 TO 63 : READ 8iC2=C£+B:F 
ORE 12416+A,B:NEXT: IF C2< >7746 
THEN E =2: GOTO 240 

213 FOR A=0 TO 83: READ B:C3=C3+B:P 
ORE 12480+A,B:ttXT: IF C304231 
THEN E =3! GOTO 240 

221 FOR A=0 TO 83: READ BiC4=C4+B:P 
ORE 12544+A,B:NEXT: IF C4< >4342 
THEN E =4: GOTO 240 

223 FOR A=0 TO 63: READ B:C5=C5+B:P 
ORE 12608+A,B:NEXTs IF CSC >4755 
THEN E =5: GOTO 240 

225 FOR A=0 TO 63: READ B:CG=C6+BsP 
ORE l2G72+A,BiNEXT! IF C6O4806 
THEN E *6: GOTO 240 

227 FOR A=0 TO 63: READ B:C7=C7+B:P 
ORE 12736+A ,B:NCXT! IF C7 06554 
THEN E=7:G0T0 240 

235 FOR A=0 TO B3:P0KE 12799 +A,0:N 
EXT 

240 IF E < >0 THEN PR INT "ERRORE NEI 
DATA DELLO SPRITE N. ";E:END 
245 DIM B$< 15) ,E*(8> iFOR A=0 TO 15 
:REAO B$<A)iNEXT 

250 REM ************************* 
*** 

255 REM ** CREA IL PRIMO QUADRO 
** 

280 REM ************************* 
*** 

270 V=5324S:P0KE V+23,7:PQKE V+23, 
0 

290 FOR A=B TO 2:P0KE 2040+fì,I33:P 
ORE V+39+A , ì : NEXT 
300 POKE V, 1 12: POKE V+2,224:POKE V 
+4,112 

310 POKE V + 1 , 100 IPOKE V+3, 131': POKE 

I 


V+5, 164 

330 PR I NT " t CLEAR 1 I B DOUTJ3 ai ; SPC (7 > ì 

* "iREM SHIFT & C 

335 PRINTSPCU6); ■ n “ i REM CMOR 

& S 

340 PR INT" C OLEARI [6 DQUN3 11 ; SPC (7 ) ; 

« _* ; PR ! NTSPC (16); * ^ " 

380 PR INTSPC <7 ) ; S1 " } SPC <3 > " |" : P 

R INTSPC (30 ) ; 11 r 

380 PR INTSPC (£0 >2 " t 11 S RRJ NTSPC < 

30 y » " 

400 PR INTSPC (£0 > ; " r— * s PR I NTSPC < 
£0); " | " ! REM CMDR & A 

4£0 PR INTSPC (7 >; n ">SPCO> H [ H ! P 

R INTSPC US >2 " J^iREM CM3R 

& X 

430 PR INTSPC (7)2 " 

440 POKE £040, FEEK< £040 >~1 ; POKE £0 
4£ ,PE£K (£04£ > - i 

450 GOSUB 5000 i GOSUB 5 150 i POKE V+£ 
i i-7 

460 REM ********************** *** 
***** 

470 REM ** CREA QUADRO ISTRUZ ION 
I ** 

480 REM ************************* 
***** 

490 PRINT" tDOUWI , 


500 FOR A~0 TO atPRlNT” [ h ;SPC(35>J 
* j " : NEKT 

530 PRINT" : 

j d 

540 REM ************************* 
***** 

550 REM ** GESTIONE PORTE LOGICH 
E ** 

580 REM ************************* 
***** 

570 PRINT 11 E3 URI “ ; SPC <i ) ì "F I -F3-F5 
CAMBIO PORTE / SPAZIO EXIT“ 
580 GET A*=IF THEN 580 


600 

IF AS=" ITF1I" 
SREM FI 

THEN 

GOSUB 

5000 

610 

IF A#= " ITF3 1 " 

: REM F3 

THEN 

GOSUB 

5300 

620 

IF A*='ITF5J n 
: REM F7 

THEN 

GOSUB 

5150 

630 

IF A*=" " THEN 650 



640 

GOTO 530 





650 REM ************************* 
** 
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660 REM ** SCELTA SECONDO QUADRO 
** 

670 REM #>lt*i|i)|i**>tiM<]t*****#**]|i***## 

«4 

6S0 PRIMT"[UP3"JSPC<1 )? " [RVSJPIRV 
OFF 3ROVE I/O / tRVS 3T1RVGFF 3A 
VOLA DELLA VERITÀ' " 

630 GET A$« IF 0*="" THEN 630 
700 IF A*="P' 1 THEN 730 
710 IF A*="T" THEN 1295 
720 GOTO 690 

730 PR1NT" CUPI ";SPC< 1 >; ' FU-4>CAM 
610 INPUT / SPA2 lOiÈXIT " 

735 C -55296 : POKE C+245, 1 «POKE C+32 
5,1: POKE C+565 , l S POKE C +645,1 
740 POKE C+285,t:P0KE C +605,1 «POKE 

C +302,1: POKE C+622,1:P0KE C+4 
76,1 

745 IF PEEK <2040 >=139 THEN POKE 13 

09.46 

746 IF PEEK <2042 >=199 THEN POKE 16 
29,48 

750 IF PEEK (2040X >199 THEN JPOKE 

1269 .46 : POKE 1349,48 

760 IF PEEK <2042 > < > 199 THEN :ROKE 
1589,48: POKE 1669,48 
770 REM ******** ******* 4* ******** 
775 REM ** ROUTINE CALCOLO I/O ** 
788 REM ************************* 
790 GOSUB 990 : GOSUB 1090 
810 GET A$:iF A$>=*"' THEN 810 
820 IF A*= " tTF 11* THEN GOSUB 880: 
GOSUB 1090 

830 IF Ai= " ITF3 ] 0 THEN GOSUB 910: 
GOSUB 1090 

840 IF A*=" 1TF51" THEN GOSUB 940: 
GOSUB 1690 

850 IF A$= ’ 1 TF7 ] " THEN GOSUB 970: 
GOSUB 1090 

860 IF A*= u " THEN GOTO 1230 
870 GOTO 810 

880 IF PEEK < 1269 > =46 THEN POKE 12 
69, 49: GOSUB 990: RETURN 
830 IF PEEK < 1269 ) =49 THEN POKE 12 
69 ,48: GOSUB 990: RETURN 
895 GOTO 985 

910 IF PEEK( 1343> =48 THEN POKE 13 
49, 49: GOSUB 990: RETURN 
920 IF PEEK ( 1349 ) =43 THEN POKE 13 
49,48: GOSUB 990 «RETURN 
925 RETURN ^ 

940 IF PEEK < 1599 > =48 THEN POKE 15 


63, 49: GOSUB 990: RETURN 
350 IF PEEK < 1539 >=49 THEN POKE 15 
99, 48: GOSUB 390: RETURN 
955 GOTO 387 

970 IF PEEK < 1869 >=48 THEN POKE 16 
69, 49: GOSUB 930 i RETURN 
930 IF PEEK ( 1669 >=49 THEN POKE 16 
69, 48: GOSUB 990 '.RETURN 
981 RETURN 

985 IF PEEK. < 1309 >=48 THEN POKE 13 
03, 49: GOSUB 990: RETURN 
939 IF PEEK <1309 >=49 THEN POKE 13 
09, 48: GOSUB 390: RETURN 
387 IF F'EEK < 1629 > =48 THEN POKE 16 
29 ,49: GOSUB 990: RETURN 
988 IF PEEK < 1629 >=49 THEN POKE 16 
29, 48 «GOSUB 990: RETURN 
990 NI =PEEK ( 1269 > -48 :N2=PEEK < 1349> 
-48 

1000 N3*PEEK ( 1589 > -48 :N4=PEEK < 1669> 
-48 

1010 N5=PEEK ( 1 309 > -48 l N6 =PEEK C 1 629 > 
-48 

1 020 P 1 =PEEK (2040 > - 192 i P2 =PEEK <204 1 
>-I92:P3=PEEK <2042 >-192 
1030 A=N1 « B=N2 « IF Pi=7 THEN A=N5 :RE 
M GEST PORTA ALTA 

1040 ON PI GOSUB 1110,1130,1150,1 

170,1 190, 12 10, 1230 :U1=U 
1050 A=N3 « B=N4 : IF f'3=7 THEN A=NS:RE 
M GESTIONE PORTA BASSA 
1060 ON P3 GOSUB 1110,1130,1150,1 

170,1 190, 1210, 1230: U2 =U 
1070 A=U 1 s B=U2 : REM GEST, PORTA DI 
USCITA 

1080 ON P2 GOSUB 1110,1130,1150,1 

170,1 190, 12 10 «RETURN 
1090 POKE 1326,43+Ul :POKE 1646, 48+U 
2 «POKE 1500, 48+U «REM SCRIVE R 
ISUL. 

1100 RETURN 

1110 U=0« IF A= 1 AMD B= 1 THEN U=1«RE 
M SIMULA AMD 
1120 RETURN 

1130 U= 1 « IF A= 1 Aid B=l THEN U=0«RE 
M S I MULA NANO 
1140 RETURN 

1150 U=0 s IF A = I OR B= 1 THEN U=1«REM 
SIMULA OR 
I 180 RETURN 

1170 U = 1 « IF A = 1 OR B= 1 THEN U=0«REM 
SIMULA NOR 
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1 130 RETURN 

1190 U= 1 s I F A=B THEN U=0SREM SIMUL 
A OR ESCLUSIVO 
1800 RETURN 

1810 U=0S IF A=B THEN U=i:REM SIMUL 
A NOR ESCLUSIVO 
1880 RETURN 

1830 U=0: IF A=0 THEN U=1 : REM SIMUL 
A INVERTER 
1840 RETURN 

1850 PRINTSPCd ) J " IUP 3 IRVS IC IRVOFF 3 
AMBIO PORTE / IRVS JT IRVOFF 3AVO 
LA DELLA VERITÀ' " 

1355 GET A*: IF A*=" " THEN 1855 
1860 IF A*= "C " THEN POKE V+£1,0SGOT 

0 330 

1870 IF ASO-T" THEN 1855 

1830 REM 444444444444444444*444444 

4 

1893 REM 44 TAVOLA DELLA VERITÀ' * 
4 

1894 REM 4444444444444444444444444 
4 

1895 POKE V+S I ,0 s PR INT" ICLEAR 3 " 

1300 UP*=" , r t -r \ u 

1310 Sl*="| ABCD i U1 I U8 | U | " 

1311 S2*=" 1 A CO I Ui i U8 i U | " 

1318 S3$= u ! AB C 1 U1 1 U£ 1 U j" 

1313 S4*=" | A B | U1 1 U8 | U I” 

1314 MI*=*| + 4 4 

1315 DG*=" "* ± J »“ 

1380 IF PEEK <8040) = 199 THEN 1500 

1381 IF PEEK <8048>= 199 THEN 1600 

1330 PRINTUP*:PRINTSl*sPRINTMI* 

1350 FOR D=0 TO 15:PRINT'’ I ";B*<B>; 

| „ . 

13G0 Nl=VAL<MIO*<B*<D> ,1 ,1) ) JN8=VAL 
<M1Q*<B*<D>,£,1>> 

13B5 N3=VAL<M10*<B*<D) ,3, 1 > >iN4=VAL 
<MI0*(B*<0>,4,U ) 

1380 GOSUB 1080 SPRINT U 1 f " | "?U2;" 

1 “JUf" ì * : FEXT : PR I NTDO* 

1480 GOTO 1800 

1500 IF PEEK (8048) =199 THEN 1700 
1510 PR INTUF*! PR INTS£*s PR INTMI* 

1580 FOR 0=0 TO 7 

1530 FOR 0=0 TO 7sE*<0)=MID*<B*<D>, 
8,3) 

1540 PRINT'' | ">MID*<E*<0>,1,1>; " 

MID*<E*<0> ,8,8)) " ! ■; 

1550 N5=VAL<MID$KE*<D) ,1 ,1 ) >:N3=VAL 
<MJD*<E*(D),£, 1 >) 


1555 N4=VAL(MI0*<E*<D) ,3, 1 > > 

1570 GOSUB 1080 SPRINT UiJ “ [ ";U£)" 

I ";U,*" t" sNEXTsPRINTOO* 

1530 GOTO 1300 

1S00 PR INTUP*s PR INTS3*s PR INTMI* 

1S30 FOR 0=0 TO 7:E*(D)=MID*<B*<D) , 
8,3) 

1640 PRINT" | ''?M1D*<E*<D),1,£>; " • ; 

MI0*<E*<D>,3, 1 ); " | *; 

1650 NI =VAL <MID*<ES<0 ) , 1,1)) iN2=VAL 
<MID*<E*(D>,8,1 ) ) SN6=VAL<MID*< 
E*<D) ,3,1)) 

1670 GOSUB 1080 :PR INT Ul;"l ";U2?"| 
"JUS" 1" SNEXTsPRINTOO* 

1690 GOTO 1800 

1700 PR INTUP*s PR INTS4*! PR INTMI* 

1730 FOR D=0 TO 3 : E*<0 > =MID*<B*<D> , 
3,8) 

1740 PR1NT"| ■?MI0*CE*<D),1,I)J “ ■; 

MID*< E*<D ) ,2,1); " ! 

1750 M5=VAL<MI0*<E*<D> , 1 , 1)):N6=VAL 
< MID*<E*<D ) ,2,1 ) ) 

1770 GOSUB 1080 SPRINT U 1 f * | "fUSS” 

[ "lUf" !" sFEXTsPRINTUO* 

1800 PRINT" CDOUNI FI 5 FINE" SPRINT 
'' F3 s CAMBIO PORTE" 

1880 GET A*S IF A*=°" THEN 1880 
1830 IF A*= " ETF1 ] " THEN PR INT " ICLEA 
R I 18 OOWNJCIAO" SEND 
1840 IF A*= " ITF3 I " THEN GOTO 330 
1850 GOTO 1880 

5000 REM 4444444444444444444444444 
5010 REM 44 GESTIONE PORTA ALTA 44 
5020 REM 4444444444444444444444444 
5030 IF PEEK <8040 >=138 THEN 5070 
5040 IF PEEK <8040) =193 THEN 5110 
5050 POKE £040, PEEK <8040) +1 s RETURN 
5070 FOR A= 187 1 TO 12?4:P0KE A,3£sN 
EXT! FOR A= 135 1 TO 1354 s POKE A, 
38SNEXT 

5080 FOR A= 13 1 1 TO 1314:P0KE A,67iP 
OKE 54S72+A, 1 SKEXTSGOTO 5050 
5110 FOR A = 1 3 1 1 TO 1314* POKE A,38!N 
EXT 

5180 FOR A= 1351 TO 1354IP0KE A,67:l£- 
OKE 54278 +A , 1 s NEXT 
5130 FOR A= 1871 TO 1£74:P0KE A,67sP 
OKE 54878 +A, UfsEXT 
5140 POKE 2040, 133 : RETURN 
■ 5150 REM 4444444444444*44*44*44444 

4 

5160 REM 44 GESTIONE PORTA BASSA 4 
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5170 REM ***M******************** 
5180 IF FEEK (£042 ) =198 THEN 5220 
5130 IF PEEK < 2042 > = 139 THEN 5260 
5200 POKE 2042,PEEK(H042>+liRETURN 
5220 FOR 8 = 1531 TQ 1594sP0KE A,32!N 
EXTsFCjR A= 16? 1 TO 1674 1POKE A, 
32: NEXT 

5£40 FOR A= 163 1 TO 1634: POKE A,6?:P 
OKE 54272+A , 1 : NEXT 
5£50 GOTO 5200 

5260 FOR A= 163 1 TO 1634: POKE A,32iN 
EXT 

5£70 FOR A= 1671 TO 1674:POKE A,6?:P 
OKE 54272+A, 1 s NEXT 
S£80 FOR A= 1531 TO 1594:POKE A,67:R 
OKE 54272 +A, ls NEXT 
5230 POKE 2042, 133 l RETURN 
5235 REM **^*:M*!M#**#**#****#*** 
* 

5300 REM ** GESTIONE PORTA INEDIA * 
* 

5305 REM ************************* 
* 

5310 POKE 2041 ,PEEK<£041 )+l : IF PEEK 
<204 1 ) > 198 THEN POKE 2041,193 
5320 RETURN 

10000 DATA 255,252 ,000,255,254 ,008 , ì 
32 ,007,128, 19£, 1 , 132 
10020 DATA 192,0,192,132,0,224,192,0 
,96,132,0,112 

10030 DATA 132,0,48,192,0,48,132,0,4 

3.132.0. 49 

10050 DATA 192,0,48,192,0,112,132,0, 

96 . 192 .0 . 224 

10060 DATA 192,0,192,132,1,192,192,7 
, 128,255,254,0 

10030 DATA 255,252,0,255,255,252,0,2 

55.254.0. 132.7 

10098 DATA 128,132,1,132,192,0,192,1 

32.0. 224.192.0 

10110 DATA 96,192,0,112,192,0,54,132 
,0 ,63 , 132 ,0 

10120 DATA 57,192,0,63,192,0,54,192, 
0,112,192,0 

10140 DATA 96,192,0,224,192,0,132,13 
2,1,192,192,7 

10150 DATA 128,255,254,0,255,252,0,2 

55.255.224.0. 255 

10170 DATA 240,9,36,60,0,48,15,0,16, 
3,128,24 

10130 DATA 0,192,24,0,192,12,6,96,12 
,8,48,4 


10200 DATA 0,48,4,0,48,4,0,48,12,0,4 
3,12 

10210 DATA 0,96,24,0,192,24,0,132,16 
,3, 128,43 

10230 DATA 15,0,36,60,0,255,240,0,25 

5.224.0. 255 

10240 DATA £55,224,0,255,240,0,96,60 
,0,48,15,0 

10260 DATA 16,3,128,24,0,192,24,0,19 

2.12.0. 36 

10270 DATA 12,0,54,4,0,63,4,0,57,4,6 
,63 

10290 DATA 12,0,54,12,0,36,24,0,192, 

24.0. 132 

10300 DATA 16,3,128,48,15,0,36,60,0, 
£55,240,0 

10320 DATA 255,224,0,255,153,224,0,1 

59.240.0. 76.60 

10330 DATA 0,38, 15,0,54,3, 188, 13,0,1 

32. 13.0 

10350 DATA 132,9,128,96,9,128,48,4,1 
£3,48,4, 128 

10360 DATA 48,4, 128,48,9, 1£8, 48,3, 1£ 

8.36.13.0 

10330 DATA 192,13,0,192,54,3,128,38, 

15.0. 76.60 

10390 DATA 0,159,240,0,159,192,0,255 
,153 ,£24,0, 153 

10410 DATA 240,0,76,60,0,33,15,0,54, 

■ 3 , 128 ,13 

10420 DATA 0,132,19,0,192,3,128,36,9 
,128,54,4 

10440 DATA 128,63,4,123,57,4,128,63, 
3,128,54,9 

10450 DATA 128,36,13,0,132,19,0,132, 
54,3,128,33 

10470 DATA 15,0,76,60,0,153,240,0,15 

9.132.0. 255 

10480 DATA 240,0,8,252,0,0,207,0,0,1 

95 . 192.0 

10500 DATA 192,240,0,192,60,0,192,15 
,0, 192,3, 192 

10510 DATA 192,0,246,132,0,31,132,0, 

25 . 192 .0 . 63 

10530 DATA 132,0,246,132,3,132,132,1 

5.0. 192.60.0 

10540 DATA 132,240,0,195,192,0,207,0 
,0 ,252 ,0,0 ,240 ,0,0 ,255 
10560 DATA 0000,8001,0010,0011,0100, 
0101 , 0110,01 1 1 

10570 DATA 1000,1001,1010,1011,1100, 

1101 , 1110,1111 
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Psicrometro 

dì FUsvhj Mulinuri 


on un titolo del genere, due possono 
essere le probabili reazioni di chi sta 
leggendo: 

1 - continuare a leggere con curiosità, 
per scoprire che cosa sarà mai questo 
“psicrometro”; 

2 - pensare che sì tratti di un ^parecchio 
per il trattamento delie malattie mentali 
o di qualcosa Itro di oscuro e incompre ri- 
si hi le e quindi passare allerticelo 
successivo. 

Per scongiurare la possibilità numero 
2, spieghiamo subito che lo psicrometro 
è uno strumento che serve a misurare 
Fumi di tà dell’aria. E* costituito da due 
normalissimi termometri: uno è esposto 
liberamente alFaria, l'altro ha il bulbo 
coperto da una “calza™ di cotone. Gue- 
st T ultima è sempre mantenuta umida fa- 
cendole gocciolare sopra dell’acqua 

r 

(niente di megagalattico dunque* si può 
addirittura costruire in casa), 

Per effetto della continua evaporazio- 
ne, il termometro con la calza, segnerà 
una temperatura minore di quella del 
termometro a bulbo asciutto; dalla diffe- 
renza dei due valori si ricaverà Fumidità 
percentuale dell’aria. 

Ci si chiederà che rapporto ha tutto ciò 
con le tabelle. Supponiamo di aver rile- 
vato questi valori: 
temperatura termometro bagnato 
= 24° C 

temperatura termometro asciutto 


Qualche semplice 
accorgimento per 
costruire le tabelle 



= 27 . 5*0 

differenza “ 27,5-24 = 3.5 

Esaminiamo la tabella che appare in 
figura. Nella prima colonna a sinistra so 
no segnate le temperature del termome- 
tro a bulbo bagnato; nella prima riga in 
alto compaiono le differenze di 
temperatura. 

Parliamo dalla colonna con il valore 3 
e 1/2, scendiamo fino a incrociare la riga 
corrispondente a 24°C: V umidità percen- 
tuale delFaria in quelle condizioni è del 
73%, 

Impariamo a *' 4 computerizzare^ 
le tabelle 

Immaginiamo di voler fare un archivio 
dei numeri di telefono di tutti i nostri 
amici. Questo è un esempio di tabella (o 
matrice o array t come si preferisce chia- 
marla) ad una dimensione. Infatti per 
trovare il numero che ci interessa* basta 
conoscere un solo dato: il nome della 
persona cercata, 

Per indicare un esempio di matrice bi- 
dimensionale non occorre andare molto 
lontano: è proprio la figura che abbiamo 
appena visto. I dati (in questo caso le 
umidità), sono suddivisi in righe e colon- 
ne, Per accedere ad un elemento qualsia- 
si, le informazioni necessarie sono due. 
In Basic si scriverebbe così: 
UM=UM(R,C) 
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USO DELLO PSICROMETRO A DUE TERMOMETRI 

E CONSULTAZIONE DELLA TABELLA 

DIFFERENZA FRA I DUE TERMOMETRI 

Gradi del 

termometro 

bagnato 

0 

1/2 

1 

1 1/2 

2 

2 1/2 

3 

3 1/2 

4 

4 1/2 

5 

5 1/1 

6 

: 

0 

100 

90 

81 

73 

64 

57 

50 

43 

36 

31 

26 

20 

16 . 


1 

100 

90 

82 

74 

66 

59 

52 

45 

39 

33 

29 

23 

19 


2 

ICO 

90 

83 

75 

67 

61 

54 

47 

42 

36 

31 

26 

23 


3 

100 

90 

83 

76 

69 

63 

56 

49 

44 

39 

34 

29 

26 


4 

1Q0 

91 

84 

77 

70 

64 

57 

51 

46 

41 

36 

32 

28 


5 

100 

91 

85 

78 

71 

65 

59 

54 

4S 

42 

39 

34 

30 


6 

100 

92 

85 

78 

72 

66 

61 

56 

50 

45 

41 

35 

33 


7 

100 

92 

86 

79 

73 

67 

62 

57 

52 

47 

43 

39 

35 


1 S 

100 

92 

86 

80 

74 

68 

63 

58 

54 

49 

45 

41 

37 


9 

too 

93 

86 

81 

75 

70 

65 

60 

55 

51 

47 

43 

39 


10 

100 

94 

87 

82 

76 

71 

66 

61 

57 

53 

48 

45 

41 


II 

100 

94 

88 

82 

77 

72 

67 

62 

58 

55 

50 

47 

43 


12 

100 

94 

88 

82 

78 

73 

68 

63 

59 

56 

52 

48 

44 


13 

100 

94 

89 

83 

78 

73 

69 

64 

61 

57 

53 

50 

46 


1 14 

100 

94 

89 

83 

79 

74 

70 

66 

62 

58 

54 

51 

47 


15 

100 

94 

89 

84 

80 

75 

71 

67 

63 

59 

55 

52 

49 


16 

100 

95 

90 

84 

80 

75 

72 

67 

64 

60 

57 

53 

50 


17 

ino 

95 

90 

84 

SI 

76 

73 

68 

65 

61 

58 

54 

52 


13 

100 

95 

90 

85 

SI 

76 

74 

69 

66 

62 

59 

56 

53 


19 

100 

95 

91 

85 

82 

77 

74 

70 

66 

63 

60 

57 

54 


20 

100 

95 

91 

86 

82 

78 

75 

71 

67 

64 

61 

58 

55 


21 

100 

95 

91 

86 

33 

79 

75 

71 

68 

65 

62 

59 

56 


■ 22 

100 

95 

91 

87 

83 

79 

76 

72 

69 

65 

63 

60 

57 


23 

1(X) 

96 

91 

87 

83 

80 

76 

72 

69 

66 

63 

61 

58 


24 

100 

96 

92 

88 

84 

so 

77 

73 

70 

67 

64 

62 

59 


25 

100 

96 

92 

SS 

84 

SI 

77 

74 

70 

68 

65 

63 

59 


26 

100 

% 

92 

ss 

84 

81 

77 

74 

71 

68 

65 

63 

59 


27 

100 

% 

92 

88 

84 

81 

77 

74 

71 

68 

65 

63 

59 


28 

100 

96 

92 

88 

84 

81 

77 

74 

71 

68 

65 

63 

60 

* 

29 

100 

% 

92 

88 

84 

81 

77 

74 

72 

69 

66 

63 

60 


30 

100 

97 

93 

89 

85 

82 

78 

75 

72 

69 

66 

64 

60 


31 

100 

97 

93 

89 

85 

82 

78 

75 

72 

69 

66 

64 

61 


32 

100 

97 

93 

89 

85 

82 

78 

75 

72 

70 

67 

64 

61 


33 

100 

97 

93 

89 

85 

82 

78 

75 

72 

70 

67 

64 

62 


34 

100 

97 

93 

89 

85 

82 

78 

75 

72 

70 

67 

65 

62 


35 

100 

97 

93 

89 

85 

82 

78 

75 

72 

70 

67 

65 

62 



Prima di rilevare i dati che stabiliscono l’ umidità, occorre accertarsi che h i vaschetta sia provvista di acqua e che la mussola 
che ricopre il termometro bagnato sia umida . 

Esempio: il termometro asciutto segna 22 gradi e quello bagnato 19, La differenza è dì 3 gradi ♦ 

Air incrocio della colonna 3 delle differenze col grado 19 del termometro bagnato, troviamo che l* umidità relativa deli aria 
è 74. 
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in cui, ovviamente , : R=riga; C=coìonna 

Consideriamo ora il seguente caso. 

Supponiamo di dover fare urolndagioe 
sui prezzi della frutta, registrando le va- 
riazioni esistenti nel corso deiranno e le 
differenze tra una città e Falera, Come 
dobbiamo fare? 

Il problema è simile a quello di dover 
individuare un punto nello spazio, cono- 
scendone le tre coordinate: bisogna co 
struire una tabella a tre ìndici dove com- 
paiano su un asse le diverse qualità di 
frutta (mele, pere r .,), su un altro le varie 
città (Milano, Roma ♦ .,) e su un altro 
ancora i 12 mesi deiranno. Il prezzo è 
una “funzione” di tre elementi: tipo, cit- 
tà e mese. 

Simbolicamente questo concetto si 
può esprimere così : 
prezzo— prezzoftipo, città, mese) 
e in Basic: 

PR~FR{T,QM) 

dove T, C e M sono ovviamente variabili 
numeriche. 

Fermiamoci qui, altrimenti dovremmo 
sconfinare... ne ir iperspazio. Basti sape- 
re che il linguaggio Basic ci permette di 
utilizzare tabelle con un numero di di- 
mensioni fino ad un massimo dì 255, nu- 
mero che supera largamente le normali 
esigenze di programmazione. 

L'istruzione Basic che genera una ta- 
bella (matrice) è DIM, 

Attenzione però; quando scriviamo una 
istruzione del genere: 

DÌM FR(30*2O 1 12) 

t 1 

Finte rprete Basic mette da parte una cer- 
ta area di memoria riservata alle variabili 
con indice, che in questo caso sono in 
numero di 

30*20*12=7200 e non 30+20+ 12i=62! 

Poiché, per le variabili non intere, cia- 
scun valore da memorizzare occupa cin- 
que byte, bisogna tenerne conto per non 
arrivare alFOUT OF MEMORY della 
macchina. 

Il programma 

Quando i dati da inserire sono parec- 
chi (come nel nostro caso), oppure quan- 
do sì pensa che la tabella in futuro potrà 
essere ampliata, sorgono alcuni 


problemi: 

- dimensionamento. La linea 250 contie- 
ne L'istruzione apposita: DIM UM(R,C). 
Se non vogliamo ogni volta modificare 
questa riga, si può operare in due modi: 

1/ dare dei valori ad R e C “ad oc- 
chio”, ma grandi abbastanza per far 
fronte alle esigenze future. Così facendo 
perù si ingombra la memoria inutilmente 
e questo non sempre è accettabile per il 
buon funzionamento del programma, 

2/ far contare una prima volta i dati e 
quindi dimensionare. 

Le linee DATA del programma pub- 
blicato sono cosi organizzate: 

« in 490 - 500 - 510 sono inseriti i valori 
della seconda colonna della tabella (dif- 
ferenza di mezzo grado). La prima con- 
tiene tutti 111); 

• 520 DATA è un carattere di con- 
trollo che serve a far “capire * al pro- 
gramma che deve continuare la lettura 
(lìnea 230); 

• in 550 - 560 - 570 DATA sono inseriti i 
valori della terza colonna (differenza di 
un grado centigrado); 

• 60000 DATA iÉ X” rame il precederne, 
ha il significato di “fine lettura”. 

I due caratteri impiegati sono pura- 
menteiarbitrari, Possono valere ad esem- 
pio. li Q” h “Y’% oppure se la variabile 
di lettura è di tipo numerico: -1, 999, 0 
... ; o ancora possono essere delle strin- 
ghe: "ZZZ” “FINE” 

F unzioni amento 

Nel listato mi sono limitato ad inserire 
solo le prime tre colonne, I lettori inte- 
ressati' possono continuare il lavoro co- 
piando dalla figura e inserendo i DATA 
dalla linea 590 in avanti (non oltre 
5999$), adottando gli accorgimenti sopra 
esposti e che vengono meglio chiariti qui 
di seguito. 

210 legge una colonna. 

230 legge carattere: se uguale a in- 
crementa il contatore delle colonne e ri- 
torna a leggere. Se infatti dopo aver letto 
il trentacinquesimo dato* non compare il 
carattere vuol dire che questo è “X” 
e la lettura termina. 

250 quando ha finito dimensiona, 


280 inizia a preparare la tabella vera e 
propria. 

In particolare questa riga prepara la 
prima colonna che, contenendo valori 
tutti uguali, può essere composta con un 
ciclo FOR-NEXT anziché READ c DA* 
TA. ì vantaggi di questa soluzione sono 
evidenti: minore spazio occupato e so- 
prattutto minor logorio dei nostri 
polpastrelli. 

Purtroppo non sempre è possibile, con 
una semplice relazione matematica* ap- 
profittare dt tali scorciatoie; comunque 
vale sempre la pena di spendere un pò di 
tempo per vedere se ciò è fattibile. 

Un esempio per tutti. 

Alle pagine 159 e 160 del manuale d’u- 
so del Commodore 64 sono riportati i 
valori delle frequenze delle note. Per im- 
plementarli in un programma musicale si 
possono brutalmente copiare tutti i nu- 
meri in decine dì righe DATA, oppure 
basta notare (o sapere già) che le fre- 
quenze raddoppiano dì valore ogni 12 
note, dopodiché il tutto si può fare con 1 
(una!) riga di programma. 

330 '410 input ed elaborazione. La 
riga 330 controlla se i valori immessi 
escono dalla tabella presente in 
memoria. 

Diamo U RUN 

Il funzionamento del programma è 
estremamente semplice: verranno chie- 
ste le temperature dei due termometri e, 
se i valori immessi sono corretti, in out- 
put avremo l’umidità percentuale. 
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Le immagini di questo fascicolo 



100 REM QUALSIASI COMPUTER 
110 : 

120 REM IMPARIAMO A CREARE LE TAB 
ELLE 
130 s 

140 REM CALCOLO DELL 1 UMIO ITA 1 DEL 
L 1 AMB 1 ENTE 
150 s 

160 REM BY FLAVIO MOLINAR I 
170 i 

180 REM *** DIMENSIONAMENTO *** 
130 R=35s REM NUMERO DI RIGHE 
£00 PRINT CHRi <147) SPC <245 ) "STO P 
REPARANDO LA TABELLA" 

£10 FOR K=0 TO RJREAD UMsNEXT 
£23 REM LEGGE IL CARATTERE DI CON 
TROLLG 

£30 READ C*:iF C$=“*" THEN C=C 
+ 1 ì GOTO £10 

£40 REM INCREMENTA IL CONTATORE C 
OLONNE E TORNA A LEGGERE 
£50 DIM UMCR ,C+ 1 ) 

£60 i 

£70 REM *** PREPARA TABELLA *w* 
£80 FOR K=0 TO R s UM(K ,0) = 100 i NE 
XTsREM COLORA 0 
£30 C 1 = 1 ì RE3T0RE 

300 FOR K=0 TO RJREAD UM:UM<K, 
C 1 > =UM : NEXT 

310 READ C$!IF C*="*" THEN Cl= 
C 1 + 1 i GOTO 300 
3£0 : 

330 PRINT CHR$(147) :GOSUB 440IRE 
M *#* INPUT *** 

340 INPUT "TEMPERATURA BULBO ASCIU 
TTO'fTAUF TA >4 1 THEN 340 
350 INPUT "TEMPERATURA BULBO BAGNA 
TO " J TB ! I F TB >33 THEN 350 
! 360 DT=TA-TB* REM DIFFERENZA DI TE 


MPERATURA 

370 IF DT>6 THEN PRINT E£*: GOT 
0 340 

380 DT = INT <DT *£+0.5 >/£ ! REM ARROTO 
NDA 

390 C 1 =DT*£ • IF C1>C+1 THEN PRIN 
T Eli* GOTO 340 

400 IF C1<0 THEN PRINT E£*s GOT 
0 340 

410 PRINT CHR*C 17) 'UMIDITA' =*JUM(T 
B,C1 )? SGOTO 340 
420 : 

430 REM *** SEGNALI D'ERRORE «** 
440 Ei$=CHRl( 17)+ “QUESTE TEPPERATU 
RE NON SONO ANCORA COMPRESE IN 
TABELLA' 

450 E£*=CHR*< 17) + "ERRORE NELL ' INPU 
T" 

460 RETURN 
470 : 

4B0 REM l/£ GRADO 
490 DATA 30,90 ,90 ,30,31 ,91 ,92,92, 
3£, 93 ,94,94 

500 DATA 34,94,94,94,95,95,95,95, 

85 .95 .35 .96 

510 DATA 36,96,96,96,96,96,97,37, 

97.97.97.97 
5£0 DATA " * " 

530 ! 

540 REM 1 GRADO 

550 DATA 81 ,8£, 33, 33, 84, 35, 85, 36, 
86,86,87,88 

560 DATA 88,89,89,89,90,90,90,31, 
91,91,91,91 

570 DATA 9£ ,92 ,92 ,92 ,92 ,92 ,93 ,93 , 
93,93,93,93 
560 • 

599 REM FINE LETTURA 

600 DATA "H",. ! 
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COMMODORE 64, C-16, PLUS-4 


Simulazione 

televideo 

di Giovanni Belili 


"MB niMMWffLjmt”™ 

R Pi i 

rCLEVIDED 

IHPÌCE DBTI fi 0*0> 



n un afoso pomeriggio d'estate An- 
drea vide, dalla finestra della sua came- 
ra, il suo amico Carlo, che stava arrivan- 
do col motorino. 

"‘Accidenti, è già qui - esclamò Andrea 
- e non sono ancora pronto 1 ', E già; An- 
drea aveva dimenticato di caricare un 
certo programma trascrìtto da Commo- 
dore Computer Club, 

Accese in fretta iì computer, richiamò 
il programma da cassetta e cominciò a 
trafficare con dei fili elettrici multicolori 
che coLJegò da una parte al computer e 
dall'altra al televisore. 

Mentre stava attaccando l’ ultimo pez- 
zo di nastro adesivo per fissare il filo 
sotto il computer, ecco arrivare Carlo- 
Tutto era pronto per la messinscena. 

(Ma tutto cosa? State a vedere: il mi- 
stero verrà svelato), 

"Ciao come va? ” iniziò Carlo. 

"io, bene, anzi, benissimo, adesso pe- 
rò sta zitto c seguimi”. 


Come prendersi 
gioco dei propri 
amici facendo 
apparire 
nelle pagine del 
servizio Televideo 
della Rai notìzie 
poco serie ! 


Arrivati in camera, Andrea fece nota- 
re a Cario il filo che collegava computer e 
televisore. 

“E adora?* non mi sembra niente di 
strano, tutti i computer sono collegati al 
televisore, altrimenti come fai a vedere 
cosa programmi?” 

“Lo so, ma questo e s un collegamento 
speciale: su una rivista c'era spiegato co- 
me realizzarlo, io non ne sarei mai stato 
capace, come sai”. 

“Ma a cosa serve?" chiese incuriosito 
Carlo. 

“Sai che cosa è il Televìdeo?” 

Certamente Tho visto in funzione da 
mio zio, è quel servizio della Rai che 
permette di avere tutte le Informazioni 
che vuoi premendo solo qualche tasto 
del telecomando. Fra le tante cose si può 
sapere anche l'ora esatta, sempre visua- 
lizzata in alto. L'unico inconveniente È 
che bisogna avere un televisore predi- 
sposto, altrimenti il collegamento à 
impossibile”. 
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“Infatti...” ■ disse Andrea coti un sor- 
riso malizioso. 

‘‘Ma,.,, vuoi due che, .. no, non ci cre- 
do , è uno dei tuoi soliti scherzi". 

“E invece no, adesso ti faccio vedere' 1 . 

Acceso il televisore e sintonizzatolo 
con il computer, ecco che appare la scrit- 
ta Rai Televideo, ed un indice delle pagi- 
ne a disposizione. 

L'incredulità di Carlo scomparve, 

. Già pensava di fare lo stesso collega- 
mento usando il suo computer e di fare 
una bella figura con i suoi gentitori. 

“Ma è esattamente il i devideo?” 

“Certo l’unica differenza è che invece 
di usare il telecomando per selezionare te 
pagine, utilizzo il mio Commodore 64 
usando i tasti funzione, e RETURN per 
visualizzare la pagina scelata. E poi non 
vedi che c'è anche sempre visualizzata 
l’ora esatta come dicevi te prima?'" 

“Guarda il mio orologio è esatto, e il 
tuo? mettilo a posto" - disse Andrea con 
evidente soddisfazione. 

“Su, proviamo a vedere qualche 
pagina", 

“Preferisci economìa, sport, notizie 
all’ultimo momento o cose varie?” 

“Sport, ovviamente, per chi mi hai 
preso?" 

“Proviamo allora per esempio la pagi- 
na 240” 

“Una notizia sconcertante apparve 
per il tifoso de ir Interi 

“Rumenigge lascia flnter,,.”. 

“Va male per la tua squadra del cuore 
eh?” 

“Porc... Adesso però voglio vedere 
una notizia di giornata: prova a selezio- 
nare pagina 25" 

“Bagnante avvista un pescecane men- 
tre nuota... era uno scherzo di un 
ragazzino”, 

“Meno male; qualche notizia allegra, 
però adesso fammi rivedere qualche pa- 
gina sportiva”. 

“Va bene, vediamo pagina 157". 

Ecco allora che T invece delle notizie 
sportive appare sul video la scritta: 

“Sei proprio un pollo ci sei cascato in 
pieno. Ma quando imparerai a non esse- 
re cosi credulone?” 

E subito Andrea cominciò a ridere a 


più non posso, mentre t! povero Carlo 
diventava rosso, non sappiamo se per la 
rabbia o per la vergogna: c'era cascato 
veramente come un pollo,,. 

Come si usa il programma 

Innanzitutto, per rendere più credìbile 
la messinscena è obbligatorio colle gare 
computer e televisore con almeno un filo 
dall’aspetto “professionale”, attaccan- 
dolo con del nastro adesivo e cercando di 
non farlo notare. 

Secondo: prima che arrivi il vostro 
amico dovete aver letto da disco o da 
cassetta il programma. 

Dovete dare il RUM, sempre prima 
dell'arrivo dei “pollo”. 

Il computer chiederà la data e Torà 
esatta (altrimenti che tei video sarebbe 
con l'ora sballata?}, nel modo HHMMSS 
dove HI! indica le ore, MM i minuti e SS 
i secondi (se per esempio i minuti sono 3 
dovete mettere 03 , mi raccomando). 

Verrà richiesto se state usando 1164 o il 
16. 

Potete spegnere a questo punto il tele- 
visore, solo quello, non anche il compu- 
ter: tutto è pronto, potete chiamare il 
vostro amico. 

Fate finta dì accendere il telev isore e, 
gradita sorpresa, vedrete il tele video. 

Come si deve svolgere la scena ormai 
lo sapete. 

I tasti da usare sono: 

Fl= 10 pagine avanti, 

F3— 1 pagina avanti, 

F5— 1 pagina in dietro, 

F7= 10 pagine in dietro. 

RETURN per visualizzare la pagina 
scelta (il numero della pagina è sempre 
visualizzato nella parte in alto a sinistra 
dello schermo). 

Vi faccio notare che, nei programma 
così come è pubblicato, ci sono solo 5 
pagine diverse* mentre ne sono a disposi- 
zione 999, 

II trucco è semplice: se scegliete una 
pagina sportiva, il computer vi mostrerà 
sempre quella, e così per la pagina eco- 
nomica, eccetera. 


Dovete stare attenti a non richiamare 
più di una volta Io stesso argomento, _ 

Unica eccezione è per lo sport: qual- 
siasi pagina scelta fra 101 e 300 vi farà 
visualizzare sempre la stessa notizia, 
tranne che per la pagina 157: quella è la 
pagina riservata al gran finale che rivela 
lo scherzo. 

IL programma, comunque, per come è 
fatto, è predisposto per avere altre pagi- 
ne, quante ne volete (fino a che ei sono 
byte liberi c’è speranza), in modo da ren- 
dere la simulazione più vicina al vero 
televideo. 

Per fare questo dovete fare come 
segue: 

dovete aggiungere una linea che richiami 
la pagina da agiungere. 

La lìnea deve essere compresa fra la 

620 e ta 640 (per un totale di 18 pagine), 
ma potete aggiungerne ancora di più se 
ri nume rate il programma ad ogni pagina 
che aggiungete. 

La linea deve essere così digitata: 

621 IF NP = (numero della nuova pagi- 
na) THEN GOSUB 1130:GOTO (alla 
fine del programma) 

Alla fine del programa dovete mettere 
istruzioni PRINT “(lunghezza 40 carat- 
teri)”; (anche il , come potete vede- 
re dal listato. 

Non potete superare le 24 righe per 
pagina. 

Dopo ì! testo della nuova pagina dove- 
te aggiungere la linea seguente: 

(numero riga) GOTO 500. 

Potete ora registrare il programma: 
avete introdotto una nuova pagina. 

Esempio pratico 

Supponiamo di voler aggiungere la pa- 
gina 55, 

Dobbiamo digitare: 

621 IF NP = 55 THEN GOSUB 
1130:GOTO 1970 

1970 PRINT “ESEMPIO DI INTRO- 
DUZIONE PAGINA 55., 

1980 GOTO 500 

Adesso siete pronti: cercale di ingan- 
nare bene il vostro amico, o la figura del 
pollo la farete voi. 
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100 REM COMMODORE 64, C-16 
110 REM PLUS ~4 , PET 4000-8000 
115 : 

120 REM SIMULAZIONE TELEV1DEO 
160 REM BY GIOVANNI BELLO ' 

£30 : 

360 INPUT 11 ICLEAR 1DATA ODIERNA -1ES 
. £0/03/1935 ) ” ? DTì: IF LENvDT$) 
< >10 THEN 360 

365 INPUT "CHE ORA E' CHHMMSS ) “ J T* 
; IF LEN<T*K)6 THEN 365 
370 TI*=T$ 

330 PRINT" tCLEAR ] IRV3 3 HAI ; * 

330 PRINT" 1-C* 64" 

400 PRINT”£-C= 16 0 PLUS 4" 

410 GET A$: IF A$< " 1 " OR A4>"2" THE 
N 410 

420 A=VAL < AS) 

430 ON A GOSUB 690,760 

440 Pl*=" [HOME H DOLIMI [3 RIGHT1" 

450 P£i= 11 1 HOME 3 ” : FOR K = 1 TO 3t:P2* 
=P£$+* [RIGHT3 " JNERT 
460 P£$=P2$+ *' tG I ALLO 3 11 
470 P1$=P1$+" [VERDE] " 

480 NP=0 : REM NUMERO PAGINA 
490 GOSUB 13 30: GOSUB 880 
500 W$=STR$(NP ) :W$= ”000 “ +R IGHT*< 
,LEN< W$) - 1 ) 

510 W*=RIGHT$(UI$,3> 

520 PR I NTP 1 4N* : PR I NTP£*T I $ 

530 P=PEEK <F ) 

540 IF P=A THEN NP=NP+l!IF NP>999 
THEN NP=0 

550 IF P=B THEN NP=r^-l : IF NP<0 TH 
EN NP=993 

560 IF P=C THEN NP=M=*H0:IF NP>999 
THEN NP=0 

370 IF P=D THEN NP=NP-10:IF NP<0 T 
HEN NP=999 
580 IF P=E THEN 600 

590 GOTO 500 

600 W#=STR*<NP>:W*='000“+RI6HT$<W* 
,LEN<I4*>-1) 

610 W*=RIGHT*(U*,3> 

620 PRINTP1$14*:PRINTP£$TI* 

630 IF NP=0 THEN GOSUB 1130:GOSUB 

880: GOTO 500 

640 IF NP< 10 1 THEN GOSUB 1130: GOTO 
1 180 


650 IF hP<301 THEN GOSUB II 30: GOTO 
1330 

660 IF NP<40S THEN GOSUB 1130: GOTO 
1520 

670 GOSUB 11 30: GOSUB 1680 
680 END 

630 REM ************************** 
* 

700 REM *INIT. VARIABILI PER C = 64 

* 

710 REM ************************** 
* 

720 POKE 53280, 0:POKE 53281, 0:REM 
COLORE SFONDO + BORDO = NERO 
730 A*5:B=6:C=4:D=3sE=l:F=197 
740 PRINT"£CLEAR] [BIANCO]" 

750 RETURN 

760 REM ************************** 
* 

770 REM *INIT. VARIABILI PER C* 16 
* 

772 REM ************************** 
* 

780 REM COLORE DEL FONDO, BORDO, 
CARATTERE 

785 REM DIGITARE LA LINEA 790 SEN 
ZA L’ISTRUZIONE "REM* 

730 REM : COLOR 0,1: COLOR 4,1 : CO 
LOR 1,1 

800 A=5:B=6:C=4:D=3:E=1 :F=198 
810 PR INT*[CLEAR] [BIANCO] " 

8£0 RETURN 

830 REM ************************** 
* 

840 REM *FAG INA 000 INDICE PAGINE 

* 

850 REM ************************** 
* 

8G0 PRINT” E CLEAR] [BIANCO ] " 

870 RETURN 
87£ : 

875 REM SCRIVE "RAI" 

830 PR I NT" [VERDE ] 


830 

PRINT" 

** 

a» m 

:R£M 

r 

TASTO 


COMMODORE & 

Il ^ * 


900 

PRINT" 

S t 

■ SI 

" ; i REM 

TASTO 
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1168 RETURN 

1 170 REM ************** *£********** 

1180 REM * DATI ULTIM ' ORA 

1130 REM ************************** 
* 

1288 PRINT" [ROSSOHRVSI tRVOFF] PER 
1COLQ IN MARE: 


H è 
J 


1218 

£20 

1E30 

£40 

1250 

1260 

1270 

1280 


PRINT" IGIALL01UN PICCOLO SQUAL 
0 E* STATO VISTO DA UN 


. Il 


PRINT "BAGNANTE A VARAZZE, UNA 
LOCALITÀ' 


H 


PRINT "BALNEARE LIGURE. 


n 


£98 


300 


PRINT "SPAVENTATO SI E' SUBITO 
PRECIPITATO A 

PR INTUIVA, SOCCORSO PRONTAf^EN 
TE DAL BAGNINO. »; 

PR INT"P IU * TARDI SI E 1 SCOPERT 
0 CHE ERA SOLO "? 

PRINT ‘UNO SCHERZO DI UN RAGAZZ 
INO, E LA GENTE "J 
FRI NT "HA POTUTO CONTINUARE LE 
NUOTATE . " ; 

PRINT "MANCAVA SOLO QUESTO PER 
VIVACIZZARE UN “? 

PRINT "PO 1 LE VACANZE, 


II 


1310 

1380 

1330 

I 

340 

1350 

1360 

1370 
1380 
1 390 
1400 
1410 
1420 


GOTO 500 

REM ************************** 
* 

REM * DATI SPORTIVI 

* 

REM ************************** 
* 

IF N=*157 THEN GOTO 1840 
PRINT" [ROSSO] [RVS 3 IRVOFFHVIO 
LAI INCREDIBILE: CAZZURI RUMENIG 
SE LASCIA L'INTER. 

PRINT" 

M » 

/ 

PR INT" [CELESTE 1D1SACCQRDI SUL 
PIANO FINANZIARIO MANNO * ; 
PRINT •FATTO DECIDERE A RUhENIG 
GE CHE NON PQTE-“J 
PRINT "VA PIU‘ STARE MILLA SQUA 
ORA MILANESE - 

PRINT "FORSE VERRÀ 1 INGAGGIATO 
DAL MILAN? "; 

PRINT" 


COMMODORE & 
310 PRINT" 


mm il 


It ■ 
/ 


330 PRINT" 
330 PR INT “ 


m m m 

ii * 


935 : 

936 REM SCRIVE 11 TELEV10E0* 1 
940 PRINT" [VERDE23 HI 

mm m 


m - 

7 


350 PRINT" 

ai m m 

960 PRINT* 


m 

i 

■ 


» * 


« si 


H ■ 

7 


H * 


870 PRINT" 

m m 

380 PRINT" 


330 PRINT" CROSSO] INDICE DATI DI 
0G6 1 " ; 

1000 PRINT* 


1010 PR INT* tV IOLA 3 PAGINA 000 * IN 
DICE "j 

1020 PRINT* DA 00 T A 100 ULTI M* ORA 

H * 

f 

1030 PRINT* DA 101 A 300 SPORT 


1040 PRINT” DA 301 A 405 ECONOMIA 

Il * 

7 

1050 PRINT" DA 406 A 939 VARI 
1060 PRINT" 


U m 
? 


1070 PRINT” 


* 

r 


B T 

T 


1030 PRINT"tHOMEl" 

1090 RETURN 

1100 REM *************************1 

1110 REM * VISUALIZZA INTESTAZIONE 
* 

1128 REM ************************** 
* 

1130 PRINT" CCLEAR 1PAG INA DATA s W D 
T$" ORA: "TI* 

1140 PRINT" t VERDE 1006 C VIOLA] 

RA l SERVIZIO TELEV IDEO [BIANCO] 


1150 PRINT" CAZZURI 


r; 
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1430 PRTNT" CRVS H ROSSO] CRVQFF ] [VER 
DE] IN DUBBIO LA PARTECIPAZ ION 
E DI S AROMI",* 

1440 PR INT "A I PROSSIMI CAMPIONATI M 
ONCIALI DI 

1450 PR INT "CICLISMO SU STRADA. 

Il » 

1460 PR INT" 

r 

1470 PR INT a CRVS 3 1 ROSSO 3 CRVOFF HVER 
DE2 1 IN OTTIMA FORMA INVECE E f 
IL TRENTINO 

1480 PR I NT " MOSER , CHE SARA ’ COME ORM 
AI DA MOLTI ANNI"; 

1490 PR 1 NT * UNO DEI PIU a FAVORITI FR 
A OLI AZZUR I . w ; 

1500 GOTO 500 

1510 REM ************************* 

1580 REM * DATI ECONOMICI * 

1530 REM *** ** *** *** * ** *** ******** 

1540 PR INT" CRVS I È ROSSO 3 CRVOFFHVER 
DEE J IBI ANCO! SALGONO LE QUGTAZ 
IONI DELLA SYSTEMS 

1550 PRINT" 

ii • 

1580 PR INT 11 CRVS] CROSSO] CRVOFF 1 C VER 
DEE 3 IN SETTIMANA AUMENTI DI B 
ENZINA E 

1570 PRINT" GASOLIO, 

lt 4 

/ 

1530 PRINT* 

* v 

f 

1530 FRI NT" CRVS 3 [ROSSO] CRVOFF 3 C VER 
DEB 3 GIORNATA CALMA PER LE MON 
E TE EUROPEE * 11 J 

1600 FRI NT" 

» 4 

* 

1610 PRINT" 

» 4 

r 

ieae print" irvsh rosso] irvoffhver 

DEH 1 GLI ESPERTI PREVEDONO UN 
VISTOSO "J 

1630 PRINT" AUNENTO DELL'ORO. 

4* 4 

t 

1640 PRINT" 

» m 

t 

1850 PRINTMRVSHROSSOl CRVOFF 3C VER 
DEE 3 ADONTANO I TASSI DI INTE 
RESSE USA " ; 

1680 GOTO 500 

1670 REM ************************* 

1630 REM * DATI VARI * 

<- 


1 690 REM *********»********jn(n(H(*t. , 
1T00 PR INT" [RVS] [ROSSO 1 IRVOFFHVER 
DEE ] [AZZUR J RICETTA DEL GIORNO 
s LA PI22A. 

1710 PRINT" 

, 

17£0 PRINT" [GRIGIO 1 ! INGREOIANT1 : 

t* 4 

r 

1730 PR INT" tGR 1G 103 3FAR INA, LIEVITO, 
POMODORI, MOZZARELLA, SALE 
Ì740 PR INT "OR IGANO ,0L IO /PROSO IUTTO 
E 4i, FORNO- 11 ; 

1750 PR INT " 

n - 

r 

1760 PR INT H VERDE 3 PREPARAZ I ONE • CVER 
DE83UNITE FARINA ED ACQUA, POI 

ii i 

r 

1770 PRINT" AGGIUNGETE IL LIEVITO ED 
IL SALE. 

17S0 PRINT "LASCI ARE LIEVITARE PER A 
L^ENO UN ORA. 

1790 PRINT" INFINE STENDETE LA PASTA 
E GUARNITELA 

1800 PR INT "CON MOZZARELLA POMODORO 
E PROSCIUTTO- "J 
1810 PRINT "METTETE IN FORNO PER 20 
MINUTI - 

1820 PR INT"ALLA FINE GUSTERETE UNA 
OTTIMA PIZZA. 

1830 GOTO 500 

1840 REM ************************* 
1850 REM * PAGINA 157 * 

1860 REM *PAGINA DI, -FIFE SCHERZO* 
1870 REM ************************* 
1800 PRINT" CRVS3 CROSSO] CRVOFF 3 CVER 
DEB 3 SEI PROPRIO UN POLLO 

H < 

f 

1630 PRINT* 

il * 

r 

1900 PRINT" [ROSA ]CI SEI CASCATO IN 
PIENO. "J 

1910 PRINT" 

* • 

1380 PRINT - CBLEU3MA QUANDO IMPARERÀ 
I A NON ESSERE COSI 1 
1330 PRINT" 

Il 4 

* 

1940 PR I NT “ CREDUL ONE ???!!..... 

m m 

r 

1850 GOTO 500 

i960 REM GIOVANNI BELLU J SOFTWARE 
1S85 
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QUALSIASI COMPUTER 

Hitchcock 



di Andrea e Alberto Bori ani 



*g’ i& 


/A 

uesto programma non c altro che la 
trasposizione sui computer di un classico 
gioco di società caduto in disuso da un 
po’ di tempo 

Esso consisteva nel far credere alli- 
gnare parteciparne di un'allegra serata 
trascorsa in casa con amici, di aver "in- 
ventato" un giallo molto elaborato tale 
da mettere alla prova le sue capacità in- 
vestigative inducendolo a scoprire tutto 
sul delitto che è stalo commesso: chi e 
stato ucciso e in che modo, da chi è stato 
ucciso e con quale movente, chi sono gli 
eventuali mandanti, dove è avvenuto l'o- 
micidio eccetera. 

Era necessario scoprire furti gli ele- 
menti ponendo domande a cui era possi- 
bile rispondere solamente con un 'sY o 
con un ‘noi 

Lo scherzo consisteva nel fatto che in 
realtà non c era alcuna trama gialla e alle 
domande del malcapitato sì rispondeva 
l st’ oppure 'no 1 in base al semplice fatto 
che la domanda posta cominciasse con 
una vocale o con una consonante. 

Lo scherzi risultava tanto più diver- 
tente quanto maggiore era l’accortezza 
di sottolineare r intelligenza dell'amico 
nello scoprire certi eventi con frasi del 
tipo "‘ma come hai fatto a scoprire come 
lo hanno ucciso così in fretta *?". 

Dopo un tempo sufficientemente lun- 
go, si svelava l’inganno prendendolo in 
giro per il resto della tranquilla serata ... 


Avete un amico che 
si ritiene un esperto 
di gialli tanto da 
ritenere Sherlock 
Holmes un 
novellino? 

Con questo 
programma gli 
farete fare una tal 
figura che non oserà 
mai più raccontarvi 
di aver scoperto ii 
nome dell'assassino 
dopo aver letto una 
diecina di pagine di 
un libro giallo. 


Con questo tipo di scherzi si poteva 
anche indagare nel subconscio degli ami- 
ci analizzando le storie che a loro insapu- 
ta si inventavano (è incredibile il numero 
di particolari piccanti che emergono da 
certe storici). 

II programma 

Il programma presentato non fa altro 
che sostituirsi a voi nel dare le risposte, 
E’ ovvio che per un maggiore effetto do- 
vrete ‘preparare’ il vostro amico spiegan- 
dogli che avete un nuovissimo program- 
ma di ad venture "generatore di gialli" 
che non riuscite a risolvere. Dovrete an- 
che, durante il gioco, suggerire le indagi- 
ni nel caso d si trovi in un punto morto, 
nonché sottolineare dì tanto in tanto la 
bravura del partecipante al gioco. Al re- 
sto penserà il malcapitato specialmente 
se dotato dì molta fantasia e,., 
presuntuoso. 

11 listato è molto semplice e in gran 
parte auto- esplicativo. 

Oltre a quello che è stato giù detto, il 
programma offre la possibilità, a gioco 
concluso, di rivedere ? punti salienti della 
storia f in pratica le domaede a cui il coni 
puter ha risposto si) nel caso vogliate 
trarne uno spunto per scrivere un vero 
giallo. 
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fascicolo 
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v k * a aa a a 
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Oliyhii A A A a. A A A A.AÌVÀ A Ito'M 

a'JC À-/ in k'A AhUA/k A A- tÌÀ / 

■■: r«..j .. >*, a)®Ì A/* A A je. A À A i.À 
\k À !rw. Jty.A A AAAAHA 

A A A A A A I ■• A,? 

I 0 A > BrO ti'y vi VA' K }< S"* '-*'■•« 

l\ J^k-X i i y*'‘ lv) k/v f*À ÌGMn y.ikjjvk «jP 
i*)wilin/lìtS* /lAft a i\ »vaX «\>tÀ'V 
f .it.AÀ/i.hfV A JsJlj i A-*V L,r 


1 

REM 

QUALSIASI COMPUTER 

2 

3 

m 

i 

REM 

hf I TCHQCK 

4 

10 

* 

REM 

GIGCD-NON-GIOCQ 

1 1 

REM 

RISCOPERTO DA 

12 

REM 

ANDREA E ALBERTO 

13 

REM 

BORI ANI 


14 : 

17 DIM AÌCI00) 

18 PR INTCHRÌ( 1 47 )CHR$< 14£)CHR$<3 

> 

19 PRIMI "UN GRAVE FATTO DI CROMA 
CA NERA HA SCONVOLTO UN PAESI 
NO MONTANO," 

SS PRIMI "A VOI SCOPRIRE COSA E 1 
ACCADUTO, COME E 3 ACCADUTO E P 
ERCHE 1 , - - 11 ; 

30 PRIMI 11 E TUTTO QUESTO IN MENO 
DI 100 DOMANDE A CUI IL COMP 
UTER" 

46 FRI NT "PUÒ 1 RISPONDERE SOLO CO 
N UN SI 0 UN NO,":PRINT 

50 PRI NT «SCRIVI 3 BASTA’ QUANDO H 
AI ESAURITO LE IDEE PER LA 
SOLUZIONE ?; 

70 PR INT"DEL CASO - " 5 PR INT 


30 POR 1=1 IO 100 
100 I MPUT Ai 

105 IF Ai= ,J BASTA 14 THEN 150 
1 10 BÌ=LEFTÌ<AÌ, 1 ) 

120 IF Bi= “A" OR BÌ= H E H OR B$= 3 T" 
OR BÌ= V U" OR Bi= "0 31 THEN FRI 
NT"S I " f N= 1 i GOTO 135 
130 FRI NT * NO “ 

135 IF N= 1 THEN N=0 : A$<LA > =LEFT$( 
AÌ,LEN( Ai) - 1 ) s LA=LA + 1 
140 NEXT 

150 PRI NT SPRINT 11 COMPLIMENTI !!! S 
E I RIUSCITO AD INVENTARTI UN 3 
OTTIMA STORIA," 

160 PR INT “SE VUOI RIVEDERLA NEI S 
UOI PUNTI SALIENTI (POTRESTI 
SCRIVERE " ) 

170 PR INT "UN G TALLO) PREMI IL TAS 
TO 1 S 1 - " 

175 PR INT 

176 PRINT 

180 GET Ai! IF AÌ= ,r N 31 THEN END 

135 IF Ai = "S " THEN 190 

187 GOTO 180 

130 FOR 1=0 TO LA 

800 PRIMTAiC I ) 11 : 11 ; 

210 NEftT ! PR INTCHRiT 3 ) 
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Motore elettrico 

Metti alla prova i tuoi riflessi 
nel modificare il campo magnetico 
di un motore un po’ bizzarro! 

di Andrai & Alberto Boriarli 


■U motorino da noi preso in considera- 
zione è di tipo estremamente semplifica- 
to : è costituito da un magnete permanen- 
te libero di ruotare tra le espansioni pola- 
ri di un elettromagnete. 

Come è noto m un magnete si distin- 
guono due poli chiamati convenzional- 
mente polo NORD e polo SUD. Questi 
poli hanno la capacità di respingere poli 
con lo stesso nome e di attrarre poli con 
nomi diversi. Cosi, se al polo nord di un 
magnete avviciniamo il polo nord di un 
altro magnete i due magneti tendono a 
respingersi, viceversa, se avviciniamo al 


Scopo di questo gioco é quello 
di far compiere ad un motore 
elettrico il maggior numero di 
giri nel tempo di due minuti 
generando le opportune 
inversioni del campo 
magnetico necessarie per farlo 
girare. 


polo nord di un magnete il polo sud di un 
altro magnete, questi tendono ad 
attrarsi, 

E’ evidente che se fissiamo un magne- 
te a metà strada tra i due poli in modo che 
sia libero di ruotare ma non di traviare, 
qualunque campo magnetico esterno sa- 
rà in grado di farlo ruotare in modo che 
poli con nomi diversi si trovino in corri- 
spondenza tra loro. 

Bene, abbiamo realizzato una bussola, 
ma ci manca ancora qualcosa per fare un 
motore. 

Infatti è vero che con il campo magne 
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fico oe ne rato da un’altra calanuta siamo 
riusciti a far ruotare il nostro magnete, 
ma è anche vero che questo si è fermato 
non appena si ù trovato di fronte al polo 
opposto, 

Per far continuare la rotazione del ma- 
gnete è necessario che nel momento in 
cui ì due poli opposti si incontrano si 
operi una inversione dd campo magneti- 
co esterno in modo che i due poh, tor- 
nando delio Stesso nome si respingano, 
anziché attrarsi , continuando così a man- 
tenere il movimento, 

Per questo motivo, nel programma 
pubblicato, non é stato posto un sempli- 
ce magnete, ma un elettromagnete, cioè 
una calamita in cui il campo magnetico è 
generato dal passaggio della corrente 
elettrica ed è quindi invertibile, sempli- 
cemente invertendo il senso di scorri- 
mento della corrente. 

Questa inversione, in un vero motore 
elettrico, è generata dalla rotazione stes- 
sa del motore tramite particolari contatti 
striscianti. 


Come funziona il nostro motore 

Il nostro motore ricalca praticamente 
il funzionamento del motore semplifica 
to così come è stato illustrato più sopra 
tranne che per un piccolo particolare 

L’inversione del campo magnetico che 
in un motore vero è, come abbiamo det- 
to, generato dalla rotazione dello stesso 
tramile i contatti striscianti, deve essere 
nel nostro programma generata 
"manualmente”. 

Questo significa che mentre in un vero 
motore basta dar corrente per farlo gira- 
re, senza pericolo che rallenti o si fermi 
per una errata inversione del campo ma- 
gnetico, per far girare il nostro motore 
occorre invertire periodicamente il cam- 
po magnetico premendo due tasti e, so- 
prattutto, occorre provocare V inversione 
del campo al momento giusto, pena il 
rallentamento o l'arresto del motore 
stesso. 


Come si gioca 

Dato che a furia di parlare di poli nord 
e sud vi sarà venuto freddo (questa è una 
vera freddura!!}, è giunta l'ora di scal- 
darvi iniziando a giocare. 

Dato il fatidico RUN apparirà, dopo 
alcuni secondi, il nostro motore, ovvia- 
mente molto stilizzato. 

Il magnete che ruota è costituito da 
uno spritc monocolore. Ciò significa che 
non è possibile sapere quale è il polo 


nord e quale il sud semplicemente guar- 
dandolo, Questo aumenta la difficoltà 
del gioco dato che occorrerà seguire in 
continuazione una estremità del magne- 
te, mentre mota, per potere invertire il 
campo generato daH’elettromagnete al 
momento giusto. 

Sopra e sotto il magnete-sprite appaio 
no le espansioni polari dcll T clct- 
tromagnete. 

II colore rosso indica il polo nord, il 
nero il polo sud. 

Al momento del RUN il magnete ri- 
volge il polo nord al polo nord delPelet- 
t tamagne te, mettendosi così in rotazione 
(in senso orario). Non appena rastremi- 
tà del magnete che era rivolta al polo 
nord deirelettromagnete £l,$arà spostata 
di ISO gradi, ovvero giungerà al polo sud, 
occorre invertire il campo generato dal- 
relettromagnctc in modo che al polo 
nord del magnete si opponga un altro 
polo nord. Questo si ottiene premendo il 
tasto di freccia a sinistra (primo tasto in 
alto a sinistra) net momento esatto in cui 
il polo nord del magnete (dovete indivi- 
duarlo alla partenza) si trova in corri- 
spondenza del rettangolo nero (il polo 
sud). Così facendo i due poli deirdettro- 
magnete si invertiranno (quello rosso di- 
venta nero e viceversa) e il motore acce- 
lererà. Quando il polo nord del magnete 
ripasserà dal polo appena diventato ne- 
ro, occorrerà re-invertire il campo pre- 
mendo il tasto "DEL”, In questo istante 
il motore avrà compiuto il suo primo gi- 
ro , come indicato dal contagiri posto alla 
sinistra delTorologìo. 

Si contìnua così premendo alternativa- 
mente i due tasti ogni volta che il polo 
nord del magnete passa rispettivamente 


davanti al polo situato in alto o a quello 
in basso. 

Se si sbaglia, cioè se si preme il tasto 
sbagliato o lo si preme al momento sba- 
gliato, il motore rallenta fino a fermarsi a 
meno di non "recuperarlo” in fretta 

Tenete presente che se il motore gira 
molto lentamente (a causa di un vostro 
errore), risulta difficile rimetterlo in mo- 
to: nello spritc, infatti, non viene indica- 
ta la polarità del magnete e se non ricor- 
date la corretta polarità, rischiate di ral- 
lentare ulteriormente il motore invece 
accelerarlo. 

Il gioco finisce allo scadere dei due minu- 
ti e vince, ovviamente, chi riesce a far 
compiere il maggior numero di giri nel 
tempo di due minuti. 


Commenti al programma 

- Linea 9: inizi a lizza le variabili: SP— ve- 
locità iniziale, K = posizione primo sprite 
in memoria. 

- Linee 100-120: legge gli sprites (sono 
quattro) dai DATA, li mette in memoria 
a partire dalla locazione (64*251=) 
16064, abilita lo spritc # l e Io ingrandi- 
sce dopo averlo posizionato. 

- Linea 125: fa apparire lo sprite #(K- 
250), 

- Linee 127-128: legge da tastiera e dise- 
gna i poli ddF elettrocalamita. 

- Linee 129-132: decide se il motore deve 
accelerare o decelerare. 

- Linea 135: controlla fine gioco 

- Linea 139-150: incrementa variabili, 
esegue ritardo e ritorna alla riga 125. 

- Linee 5000-6060: dati degli sprites. 
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1 

£ 

3 

4 

5 

6 
7 
3 

10 

15 

£0 


100 

1 10 
130 

185 
1 87 


183 


583 

130 

131 
138 
135 

133 

145 


150 

5000 


REM A. & A . BORIAMI 

■ 

REM PER COMMODORE 64 

■ 

REM IL GIOCQ-SIMULftZ IONE 
REM DEL MOTORE ELETTRICO 

•É 

SP =30 5 H= 1 : K =£5 1 
T I 000000 M 
FRI NT" CCLEAR3 " 

PR I NT " E HOME 3 C 4 DOWN] E li RIGHI] 
E ARANO ] CRV3 ] CRVOFF ] £8 DOWN 
3E4 LEFT] [NEROHRVS3 CRVOFF 
3 M 

FOR 1=0 TG £55 s READ RtPOKE 160 
64+1 , A : 1\EXT 

POKE 53848, 100: POKE 53849,100 
POKE 53804,©: POKE 5387 1 , 1 SFOKE 
53889 , 1 : POKE 53877,1 
POKE 8040, K 

GEI A$:IF A$“CHR$<£0> THEN H=1 
SPRINT” [HOME] E4 DOWN! Eli RIGHT 
ì [ARANCI CRVS3 CRVOFF] ES DOW 
N] 14 LEFT 3 [NERO ] CRVS ] tRVOF 
F3 * 

IF A*= "4-" THEN H = -l SPRINT" EHOM 
E ] E4 DOLJNI [11 RIGHT! EIMEROHRVS 
] CRVOFF HS DONNI E 4 LEFT] [A 
RANCI ERVSI ERVOFF 3 11 
IF K=£58 AND G"0 AND H=1 THEN 
SP-3P/1 , 5 

IF K=£5 1 AND G"0 AND H^l THEN 
SP-3P*4 

IF K=852 AND G=3 AND THE 

N 5P=SP/K5 

IF K=85 1 AND G*S AND H*-i THE 
N SP=SP*4 

IF TI$> = ”000800 11 THEN PR I NT * E H 
□ME ] E7 DOWN1 13 RIGHT 3 GAME OVER 
“ I END 

K =K + 1 i I F K=855 THEN K=£5UG=G + 
1 s IF G=8 THEN G=0:GI=GI+1 
PR INI" E HOME 3 i 8 DOUÌN3C7 RIGHI] Z 
GIALLO]"; Gl" 11 ; :FOR E = 1 TO SPs 
FRINITI^; "C8 LEFT3 M ; sh£XTE 
GOTO 185 

DATA 0 ,84,0 ,0 ,84,0,9 ,84 ,0 


5010 

5080 

5030 

5040 

5050 

5060 

5800 

5810 

5880 

5830 

5840 

5850 

5860 

5300 

5310 

5380 

5330 

5340 

5350 

5360 

6000 

6010 

6080 

6039 

6040 
6056 
6060 


DATA 

0 

,84,0,0 

,24 

,0 

,0,84 

,0 


DATA 

0 

,£4,0,0 

,24 

,0 

,0,24 

,0 


DATA 

0 

,84,0,0 

,24 

,0 

,0,84 

,0 


DATA 

0 

,84,0,0 

,24 

,0 

,0,84 

,0 


DATA 

0 

,84,0,0 

,24 

,0 

, 0 , £4 

,0 


DATA 

0 

,84,0,0 

,24 

,0 

,0,84 

,0, 

0 

DATA 

0 

,0,0, 

0, 

0 

, 0 , 

0, 

0, 

48 








DATA 

0 

,0,36,0 

,0, 

198,0,1 

,188 

DATA 

0 

, 3, 0, 

0, 

6 

, a. 

0 , 

12, 

0 








DATA 

0 

, £4, 0 

, 0 

, 

48, 0 

, a 

, 9 

8, 0 








DATA 

0 

, 198, 

0, 

i. 

128, 

0, 

3, 

0, 0 







DATA 

8 

, 0, 0, 

12 

r 

0, 0, 

£4 

, 0 

/ 0 




- 




DATA 

48, 0, 0 

, 0 

/ 

0, 0, 

0, 

0, 

0,0 








DATA 

0 

, 8 , 0 , 

0, 

a 

, 0, 

0, 

0 r 

0 








DATA 

0 

, 0, 0, 

0, 

0 

, 0, 

0, 

0, 

0 








DATA 

0 

, 0 , 0 , 

0, 

0 

, 0, 

0, 

0, 

0 








DATA 

£55 ,£55 ,i 

255 

,255,255,255, 

0,0,0 








DATA 

0 

, 0 , 0 , 

0, 

0 

, 0, 

0, 

0, 

0 






■1- 


DATA 

0 

, 8, 0, 

0, 

0 

, 0, 

0, 

0, 

0 








DATA 

0 

, 0, 0, 

0 , 

0 

, 0 , 

0, 

0, 

0 ,0 








DATA 

0 

, 0 , 0 , 

0, 

0 

, 0, 

!2, 

0, 

0 








DATA 

8 

, 0, e. 

3 , 

0 

, 0, 

1 , 

188 

, 0 








DATA 

0 

, 198 , 0, 1 

3, 

96, 

0, 

0, 

48, 0 








DATA 

0 

, £4, 0 

, 0 

, 

18, 0 

, 0 

, 6 

, 0 








DATA 

0 

3, 0, 

0, 

1 

, 188 

, 0 

, 0 

, 198 








DATA 

0 

0 , 86 

, 0 

, 0, 48 

, 0 

r 0 

, 84 








DATA 

0 

0, 0, 

0, 

0 

, 0, 

0, 

a. 


0 ,0 
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COMMODORE 64 - C- 16 - PLUS 4 

Incremento demografico 


1 1 programma rappresenta una vera e 
propria simulazione di censimento in 
tempo reale della popolazione mondiale . 

Avete a disposizione tre comandi fon- 
damentali che vi permettono dì variare a 
piacere la mortalità infantile, Tetà media 
di matrimonio e il numero di figli per 
coppia. Questi tre parametri* dai quali 
dipende il futiuo del pianeta, sono rego- 
labili a piacere attraverso sei tasti, 

I tasti “Q ,T e “A ,T regolano la mortalità 
infantile, lt W” e “S” influenzano invece 
le decisioni dei giovani e sprovveduti 
sposi ni che a seconda del vostro volere 
possono rimandare oppure anticipare le 
nozze. Premendo infine i tasti e i+ D” 
toccate indirettamente un argomento 
delicato : la vendita di anticoncezionali. 
Questi ultimi due tasti infatti controllano 
il numero di figli per coppia! 

A questi comandi a vostra disposizio- 
ne si aggiunge la possibilità di definire 
per quanto tempo dovrà durare la simu- 



Un 

gioco-simulazione 
che vi mette in grado 
di controllare il 
mondo attraverso il 
computer. 


lazione o, se preferite* la vita del mondo 
di cui siete gli indiscussi padroni. 

Una volta fatto “correre’’, il program- 
ma vi domanderà il tempo limite di fun- 
zionamento che dovrete inserire nella 
forma richiesta* ossìa utilizzando sei cifre 
del tipo 012305 che in questo caso indica- 
no un tempo di un’ora ventitré minuti e 
cinque secondi. 

Una volta inserito il tempo limite, ini- 
zierà la vera e propria simulazione e sullo 
schermo compariranno tanti numeri che, 

contrariamente a quanto potreste pensa- 
re, non sono affatto disposti 
casualmente, 

Nella prima colonna a sinistra trovate 
T indicazione di cinque fasce di età * cui 
seguono le cinque percentuali relative di 
partenza subito affiancate dalle cinque 
percentuali effettive riferite alla 
popolazione, 

A destra delle percentuali è indicato 
invece il numero effettivo di anime per 
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ogni fascia di età, la cui somma va a 
costituire la popolazione mondiale. 

Sulla destra dello schermo trovate tre 
colonnine riferite ai tre parametri con- 
trollabili dalle vostre abili (?) dita. 
Naturalmente come ogni opera d'arte 
che si rispetti, anche questo programma 
rispecchia in qualche modo il carattere 
dell’autore: se andate a controllare le 
percentuali della popolazione, vi accor- 
gerete facilmente che la loro somma non 
è sempre esattamente cento, proprio co- 
me le valutazioni dei miei esami di mate* 
matica non sono sempre esattamente 
brinanti. Le percentuali infatti sono ar- 
rotondate per eccesso per evitare t 
decimali, 

Rimane ancora da descrivere l’angolo 
in basso a sinistra delio schermo che con- 
tiene il tempo trascorso, il tempo limite 
e, naturalmente, il punteggio, 

In questo programma è considerata 
nota di merito la capacità di mantenere la 
popolazione costante nel tempo ammini- 
strando nel migliore dei modi i tre para- 
metri a vostra disposizione. 

Inizialmente infatti la popolazione 


tende ad aumentare sempre più veloce- 
mente ed è vostro compito frenare que- 
sta crescita e mantenere il più a lungo 
possibile una popolazione stabile. Il pun- 
teggio viene infatti aumentato solo se 
l 1 incremento o il decremento della popo- 
lazione è inferiore alle tre unità al secon- 
do. Se invece la popolazione si incremen- 
ta, ad esempio, a passi di dieci, il punteg- 
gio viene continuamente azzerato. 

Se al contrario la popolazione si man- 
tiene più o meno costante, il punteggio 
verrà incrementato ad ogni ciclo di una 
quantità pari ad un centesimo della po- 
polazione totale. 

E' quindi vostro interesse stabilizzare 
la popolazione solo dopo che questa ha 
raggiunto una certa consistenza, in modo 
che l’incremento del punteggio sia 
notevole 

Attenzione però: se la popolazione su- 
pera le 20000 unità, sorge il problema 
della sovrappopolazione che provoca 
una carestia ed un aumento delle malat- 
tie tali da far precipitare Tentità della 
popolazione mondiale. 

11 funzionamento del programma è ab- 


bastanza semplice e l’abbondanza di 
commenti lo rende facilmente leggibile. 
Basti sapere che le variabili che comin- 
ciano per contengono il numero di 
anime per ogni fascia di età e per il totale, 
le variabili in ' + E M contengono le percen- 
tuali iniziali e quelle in “P" le percentuali 
attuali. 

Sappiate poi che i tre parametri da voi 
controllati influenzano direttamente 01, 
ossia la popolazione della prima fascia di 
età da zero a quindici anni e quindi indi- 
rettamente anche tutt le altre fasce di età 
che vengono incrementate a seconda 
dell'entità della prima fascia. Per l'esat- 
tezza la mortalità infantile provoca una 
diminuzione di QI esattamente come l’e- 
tà di matrimonio, mentre il numero di 
figli per coppia ne determina un 
aumento. 

Naturalmente nulla vi impedisce di 
modificare il cuore del programma, quel- 
la parte cioè che si occupa dell’ incremen- 
to o del decremento della popolazione 
delle varie fasce, introducendo magari 
altri parametri controllabili da tastiera. 
Buon divertimento. 


100 REM *##**#***##|(************* 

**#* 

110 REM * 

* 

1£0 REM * INCREMENTO DEMOGRAFICO 

* 

130 REM * 

* 

140 REM * COMMODORE 64 , 016, PLU 
84 * 

150 REM * 

* 

160 REM * DI LUCA GALUZZI 

* 

170 REM * 

t 

180 REM ****** * + # * ******* * 

**** 

190 i 

£05 PRINT 11 [OLEARIO COM40D0RE 64 * 
£06 PRlNT^e- C-16 & PLUS 4 11 
£07 GET A$:iF A$= ■ 1 " THEN SO 1024 : 
GOTO £10 

£08 IF A$=“2* THEN SO30?£:G0TG £1 
0 


£08 GOTO £67 

£10 PRINT 0BR*C147) 

££0 PR INT ,r C 3 DOWN] PER QUANTO TEMPO 
VUOI CHE DURI LA * 

£30 PRINT” IDOLNIS IMULAZ IONE ? N 
£40 PRINT 11 E D0UM3 INSERISCI IL TEMPO 
LIMITE NELLA FORMA " 

£50 PRINT” EDOUNJORE MINUTI SECQM3I 

« 

260 INPUT ' tDQWN]OOMMSS';T* 

£70 1F LEN<T*K>6 THEN £10 
2B0 TF*=LEFT*<T$,£ ) + * : * +MIDt<T$,3 , 
2)+' ! "+RIQHT*<T*,£> 

290 PRINT CHR*C147> 

300 REM I VARI SIMBOLI GRAFICI 
310 REM SONO OTTENUTI CON I TASTI 

Éi 

■ 

3£0 REM B ,U , I , J ,K ,C + SHIFT 
360 f 

370 PR INT tì , — — 

___ ... H 

380 PRINT" | 

t 

390 PRINT"] ETÀ' V, V. P0P0LA2 . 

I CO NTRO LLO» | 
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400 

PR I NT “ 



MONO I ALE 


LI 


i 


■ 



700 

PR I NT " I HOME 3 " ; A E J 

410 

PRINT" 





710 

PRINTB$;E£ 


| M 

E 

F “ 



780 

PRINTB$;E3 

4£0 

FRI NT 11 

( 0-15 




730 

PRINTB$;E4 


1 o 

T 

I B 



740 

PRINTB$JE5 

430 

PRINT" 





750 

REM INIZ IAL IZZA MORTALITÀ 1 f EJ 


l R 

A 1 

G " 


■ 


A 1 DI MATR. E t) FIGLI 

440 

PRINT" 

I 15-30 




760 

MO= 1 s MA = I s F I — 1 


1 T 


L p 



770 

REM CALCOLA POPOLAZIONE INIZI 

450 

PRINT" 






ALE 


1 fi 

D 

I " 



780 

Q1=100*E1 :Q£=I00*E2:Q3=100*E3: 

480 

PRINT" 

130-50 





Q4=100*E4JQ5=I00*E5 


1 L 

I 

H 



790 

REM RESETTA L ' OROLOGIO 

470 

PRINT” 





300 

TI*="000000" 


1 I 


P “ 



810 

PR int “ chome i " ; a$; fi*; a*; a* 

480 

PRINT" 

150-70 




880 

PRINT" CUPI [3 RIGHT JLTMITE: “;TF 


[ T 

M 

E " 




* 

490 

PRINT" 





836 

REM STAMPA L'OROLOGIO FORMA TT 


[ A' 

A 

R 0 




AT0 | 

500 

PRINT" 

1 70-93 




840 

PR INT 11 C 3 R IGHT3TEMPO i [RIGHT J B ' 

*' 

i 

T 

N 




LEFTSCT !*,£),* "S MIO* CTI* ,3 ,8 > 

510 

PRINT 11 






; U JRIGHT$(TI$,£) 


1 i 

R 

C ■ 



850 

PRINT 11 CHOMEJ"; 

5£0 

PRINT" 


TOTALE ! 



860 

REM INCGLQNNAMENTO A DESTRA 


l N 

I 

0 " 



870 

PRINT TAE ( 17-LEN<STR*( INT <Q 1 > ) 

530 

PRINT" 






> > A*.! ” CLEFT3 CE LEFT J " f INT (Q 


1 F 

M 

p » 




1> 

540 

PRINT" 





8 80 

PRINT TABI 17-LEN(STR*( INTCQE) ) 


1 A 

0 

P 1 




> >B*; "CLEFTJ CE LEFT1"; INTCQ 

550 

PRINT" 






£ ) 


f N 

N 

I " 



880 

PRINT TAB < 1 7 -LEN(3TR*( INT (Q3 ) ) 

560 

PRINT" 






) >B*; " CLEFT] [£ LEFTJ"; INT(Q 


1 T 

I 

A * 




3) 

570 

PRINT 11 





900 

PRINT TAB < 1 7-LEN( STR*< INT CQ4 ) > 


i i 

0 

■ 




> >B*f * ILEFT] IE LEFT 1 11 ; INT(Q 

530 

PRINT" 






4) 


1 L 


* 



910 

PRINT TAB ( 1 7-LEN(STR*< INT (Q5 ) ) 

530 

PRINT" 






" [LEFT1 EE LEFT) " ; INT<Q 


1 E 


H 




5) j 

600 

PRINT" 

L— — — 




BE0" 

KK*QT:QT=INT(Q1 >+INT(QE)+INT(Q 


j 


H 




3 > + INTCQ4 > + INT <Q5 ) 

610 

REM PERCENTUALI INIZIALI 

930 

PRINT TAB< I7-LEN(STR*( INT(QT) ) 

680 

E 1 = INT (RFC <1)#10)+18 




}}B*; W EL£FT3 IB LEFT 3 " ; INT (Q 

83© 

E£= INT (RND C 1 >*10)+S5 




T) 

640 

E3= INT CRND < 1 >*I0>+23 



940 

IF TI*=T* THEN 1880 

650 

E4- INT <RND Cl>*10)+16 



950 

REM STAMPA LA COLONNINA DELLA 

880 

E5= 100 

- < E I +E2 +E3 +E4 > * 

IF 

E5<0 T 


MORTALITÀ 3 


HEN 880 




960 

X=£6 : Y=££-MO iPOKE SC+X+40*Y,3£ . 

670 

A*®* [5 

00USIJC7 RIGHT) 

* 


370 

FOR Y=£E TO E3-M0 STEP -1 | 

630 

B*= a ID0WN]C7 

RIGHT 3 " 



986 

POKE SC+X+40*Y,97 

696 

REM STAMPA 

PERCENTUAL I 

1NIZ IA 

930 

NEXT 
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1000 

1010 

1020 

1030 

1040 

1050 

1060 
1070 
1080 
1030 
1 100 
1 1 10 

1 120 

1 130 

1140 
1150 
1 160 
1 170 
1180 
1 190 
1200 
1210 

1220 

1230 

1240 

1250 

1280 

1270 

1230 


REM STAMPA LA COLGNNIKtfl DELL 1 
ETÀ' DI MATR . 

X=3 1 ! Y=22 -MA J POKE 5C+X+40*Y,32 
POR Y=22 TO 23 -MA STEP -1 
POKE SC+X+40*Y,37 
NEXT 

REM STAMPA LA COLONNINA DEL N 
UM. FIGLI 


X=36 i Y=22-F I i POKE SC+X+40*Y,32 
FOR r=22 TO £3 -FI STEP -1 
POKE SC*X+40*Y,97 
NEXT 

INPUT TASTI 01 CONTROLLO 


REM 
REM 
A’ 

REM 
ATR. 

REM 
LI 

GET D$ 

IF D*="Q" 
IF D$=”A" 
IF Di= “UT 
IF B$="S" 
IF D*=*E" 
IF D*="D“ 


’Q’ E 1 A * PER LA MORTALIT 


’W' E * S ’ PER L'ETÀ 1 DI M 


E* E 'D' PER IN NUM. FIG 


THEN MO=MO-(MQ< 19) 
THEN MQ=MQ + (MO> 1 ) 
THEN MA =MA - ( MA < 1 9 ) 
THEN MA=MA+(MA>1) 
THEN FI=FI-(F1<13) 
THEN F 1 =F I + <F I > 1 ) 

REM INCREMENTO E DECREMENTO D 
ELLE 

REM SINGOLE FASCE DI ETÀ’ 

IF Q 1 < *0 THEN 1280 
GI = (G1 -<M0/5> > 

QI=(Ql-< MA/30 ) ) 


Q1 = (Q1 + <(F 1/30 >* (Q2/400 ) * (Q3/4 

00 ) )) 

IF QUI THEN Q I =0 
IF Q1<Q2 THEN Q2=Q2~Q2/300 


1290 IF G1<2*Q2 THEN Q£=QE-G2/700 

1308 IF Q 1 <3*Q£ THEN Q£=Q2 -Q2/1500 

1310 Q2=Q2+Q 1/100 

1320 IF Q2 <Q3 THEN Q3=Q3-G3/100 

1330 IF Q£<2*G3 THEN Q3-G3-Q3/ 500 

1340 G3=Q3+Q2/500 

1350 IF Q3< Q4 THEN Q4=G4-Q4/100 

1360 IF Q3<2*Q4 THEN Q4=Q4-Q4/ 500 

1370 Q4=Q4+Q3/1000 


1380 IF Q4(Q5 THEN Q5=Q5-Q5/100 
1390 IF G4<£*G5 THEN G5=Q5-Q5/ 500 
1400 Q5=Q5+Q4/2000 
1410 REM QT=T0TALE POPOLAZIONE 
1420 IF GT >90000000 THEN GOSUB 1600 
1430 Z=QT/100 

1440 REM CALCOLO EFFETTIVE PERCENT 


1450 

1460 

1470 

1430 

1490 

1500 

1510 

1520 

1530 

1540 

1550 

1560 

1570 

1580 

1590 

1600 
1B 10 
1620 
1630 
1640 
1650 
1660 
1670 
1688 
1630 
1700 
1710 
1720 
1730 

1740 

1750 

1760 

1770 

1780 

1730 


UAL I POPOLAZIONE 
Pl=INT<Ql/Z >:P2=INT(Q2/Z > 

P3- INT (D3/Z ) !P4=INT(Q4/2 ) 

P5= INT (Q5/Z > 

H$=’t4 RIGHTJ" 

REM STAt'P’A PERCENTUAL I 
PR INT" [HOME 1 ‘ f HP) A*; " I3LEF 

T ] 11 ? I NT (PI) 

PRINTB*JH$? " [3 LEFT1 " ; INT (P 


2 ) 

PRINTB*; H$; " t3 LEFT1 " ■ INT (P 

3) 

PRIMTB*;H$J " [3 LEFT]"MNT(P 

4) 

PRINTBPlH*? " [3 LEFT1 " ' INT CP 

5) 

PRINTA*; ”£4 LEF TI PUNTEGGIO : 

£6 LEFT1 "? INT(PP) 

REM PUNTEGGIO 

IF ABS ( QT-KK ) <3 THEN PP=PP+QT/ 

1 00 : GOTO 810 

PP=0 

GOTO 8 1 0 ì REM CONCLUDE IL CICL 

□ 

REM ************************ 
REM *** SOVRAPOPOLAZ IONE *** 
REM ********* ******** ******* 

G 1 =Q 1/7 
G5=Q5/7 
Q4=Q4/5 
Q£=Q2/4 
RETURN 

REM ************************* 
REM ******** FINE ********* 
REM ************************* 
PR INTCHR* < 147 ) 

PR I NT " [ 3 DOWN!" 

PR INT "HA 1 TOTALIZZATO ";INT(PP 
);" PUNTI" 

PR INT“ [3 DOWN!" 

PR INT "CON UNA POPOLAZIONE DI ” 
f QT) " ANIME" 

PR INT" 13 DOWNJ“ 

PR INT" EUP 1 VUOI RICOMINCIARE 
(S/N) " 

GET A#: FOR X=1 TO 1001NEXT 
PR INT" [URI 


h 


1300 FOR X=1 TO 100SKEXT1 IF A*= " " T 
HEN 1770 

1310 IF A$="S" THEN £00 
13£0 END 
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QUALSIASI COMPUTER 


Come realizzare 
uno spreadsheet 


di (fiancarlo Mariani 


-i-J idea in questione ò la seguente! 
conoscendo i tre lati di un parallelepipe- 
do rettangolo si vuol calcolare l'area to- 
tale. il volume e la diagonale. 

Come tutti (o quasi tutti) sanno, indi- 
cando con “a", “b" ed "h\ rispettiva- 
mente, i due lati di base e l'altezza del 
parallelepipedo, le formule da richiama- 
re sono le seguenti: 

r~~ 

Area Totale = 2(ab+ah+bh| 

Volume = abh 



h 



Fino a questo punto tutto sembra faci- 
le, ma come si fa ad inserire queste for- 
mule nel proprio computer? 

Sì può notare che per prima cosa avre- 
mo bisogno di "comunicare’' la misura 
dei tre lati, e questo si può ottenere digi- 
tando te linee del programma BASIC 
che seguono tenendo conto, ovviamen- 
te, che il valore dei lati è arbitrario, 

50 À—2:REM Misura lato a 
60 B— 3:REM Misura lalob 
70 H=6:REM Misura lato h (altezza) 

Questo mi ero- programma, ovviamen- 
te. non basta per completare il calcolo. 


Questo articolo 
mostra come, 
partendo da una 
semplice idea , è 
possibile costruire, 
istruzione dopo 
istruzione, un 
mini-foglio 
elettronico 
sufficiente per 
applicazioni 
elementari e 
suscettibile di 
notevoli 

personalizzazioni. 



Occorrerà infatti ricorrere alle formule 
viste in precedenza. Nei computer Com- 
modore (e in genere anche sugli altri) il 
simbolo di moltiplicazione ò Tasterisco 
( ) e la radice quadrata è SQR(X) in cui 
X costituisce il cosiddetto "argomento". 

Aggiungiamo dunque le linee: 

110 AT— 2*( A*R+A*‘H+B*H):REM 
Àrea Totale 

115 VO=A*B*H:REM Volume 
120 DG”SQR(A‘À+15*B+H*H) 
:REM Diagonale 

Le linee 50, 60 e 70 assegnano valori 
alle variabili A, B, H mentre le lìnee 110, 
115, 120 eseguono gli opportuni calcoli 
sui suddetti valori. 

Ora proviamo a dare il RUN, Visto? 
Non succede niente, viene fuori la scritta 
READY con il cursore lampeggiante 
e... basta. Infatti con queste poche righe 
di BASIC abbiamo fatto calcolare al 
computer l'area, il volume e la diagona- 
le, ma non abbiamo dato Tordine di 
stamparli, k 'Lui" ha i risultati da qualche 
parie della sua memoria (e precisamente 
associati alle variabili AT, VO e DG) c 
dobbiamo in qualche modo visualizzarli, 
[/istruzione, ovviamente, è la PRINT, 
per cui basterà aggiungere le lince: 

160 PRINT ATREM Stampa. Area 
Totale 

170 PRINT VO:REM Stampa Volume 
180 PRINT DGiREM Stampa 
Diagonale 

Ora* se diamo il RUN, vedremo sullo 
schermo ì seguenti tre valori: 

72 

36 

7 

Questi sono appunto t valori dell'area, 
del volume e della diagonale del paralle- 
lepipedo precedentemente individuato. 

Volendo cambiare i valori dei tre lati, 
non dovremo fare altro che riscrivere le 
linee 50, 60, 70 inserendo i nuovi valori al 
posto dei precedenti e ridare il RUN al 
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programma, e cosi per tutte le volte che 
lo dobbiamo usare. Semplice, vero? 
Semplice sì T ma inefficiente....*! 

Si dice che i computer semplificano e 
velocizzano i calcoli ma daLFuso di que- 
sto programma sembra proprio dì no. 
Infatti sé perde un sacco di tempo a modi- 
ficare le tre linee incriminate e sarà op- 
portuno cercare un altro modo per co- 
municare al computer il valore dei tre 
lati. 

Per fortuna il BASIC possiede un'i- 
struzione (INPUT) die permette di fare 
quanto detto. 

Cambiamo le linee 50, 60* 70 con le 
seguenti 

50 INPUT A 
60 INPUT B 
70 INPUT H 

e diamo il RUN. Sullo schermo, uno vol- 
ta comparso il punto dì domanda tipico 
deilTNFUT, dovremo introdurre il valo- 
re di A c premere il tasto Return, e cosi 
anche per gli altri valori. Provando ad 
eseguire il programma pus volte, asse- 
gnando via via valori diversi, noteremo 
che ora è tacite e veloce da usare, ma cc 
ancora un difetto. 

Sia i dati introdotti che i risultati ap- 
paiono sullo schermo senza alcuna de- 
scrizione e questo può anche essere ac- 
cettabile. Se però affidiamo il program- 
ma ad un altro utilizzatore, senza spie- 
gargli come farlo funzionare, questi si 
troverà sicuramente in difficoltà perchè 
non saprà cosa inserire ai punti di do- 
manda e non saprà il significato dei tre 
risultati. 

Bisogna quindi stampare qualche altra 
"cosa” oltre ai dati ed ai risultati ; modifi- 
chiamo (leggi inscriviamo) le linee 50. 
60. 70, 160. 170 c 180 come segue: 

51) INPUT "LATO A 
60 INPUT "LATO B ";B 
70 INPUT "LATO H ";H 
160 PR1NT "AREA TOTALE ~ ";AT 
170 FRI NT "VOLUME = ”;VO 
130 FRI NT "DIAGONALE = “;DG 

Dando ora il RUN c mantenendo i 
soliti valori (2, 3, 6) per i tre lati, il video 
mostrerà quanto segue: 

RUN 

LATO A ? 2 
L ATO B ? 3 
LATO H ? 6 
AREA TOTALE = 72 
VOLUME = 36 
DIAGONALE = 7 

Le istruzioni INPUT é PRINT, infatti, 
permettono di inserire un commento 
qualsiasi tra virgolette ("} che verrà poi 
visualizzato rendendo più facile l uti lizzo 
de! programma. 


Questo programma potrebbe già an- 
dare bene, ma abbelliamolo ulterior- 
mente aggiungendo il titolo e separando i 
risultati dai dati introdotti. 

5 PRINT CHRS (147) 

20 PRINT 
40 PRINT 

Trascrìvete, inoltre, la linea 6. la linea 
30 c la 80 così come sono riportate nel 
listato pubblicato che rappresenta, come 
è intuitivo, il lavoro finale di 
quest’articolo. 

Dando il RUN vedremo ora che Tn 
spetto generale della schermata è note 
volmente migliorato. Il CHR£(I47) ser- 
ve per pulire lo schermo, fa PRINT a 
vuoto lascia una riga vuota, la linea 80 
stampa, tramite il ciclo FOR...NEXT* 
una linea di trattini in modo da separare ì 
dati introdotti dai risultati. Questi tratti- 
ni devono essere 22 per il VTC 20 e 39 per 
gli altri Commodore, per cui Insogna mo- 
dificare la lìnea 6 a seconda del computer 
in possesso. 

Già che siamo in vena di miglioramen- 
ti, facciamone un altro, in modo da ren- 
dere il programma veramente facile e 
veloce da usare, Aggiungiamo le lìnee in 
c 200 e diamo il RUN. Che cosa succede? 
La prima volta sembra che nessun muta- 
mento sia avvenuto, ma, una volta stam- 
pati i risultati, il computer invece di fer- 
marsi con il solito READY ricomincia 
(GOTO 10) e il cursore si posiziona an- 
coro sul primo INPUT permettendoci di 
introdurre nuovi dati. 

Il CHR$(19) serve, in altre parole, per 
posizionare il cursore sulla prima riga di 
schermo (ha lo stesso effetto del tasto 
HOME) in modo da iniziare a stampare 
sempre dallo stesso punto. 

In questo modo si nota che è molto 
facile introdurre nuovi dati c che il pro- 
gramma è diventalo semplice e veloce da 
usare. Si nota anche, purtroppo, un (ulti- 
mo) difetto. 

Variando ogni volta i dati inseriti può 
capitare ohe, specialmente per la diago- 
nale, venga visualizzato un numero con 
molti decimali, c fin qui niente di specia- 
le. Se, però, con calcoli successivi si per- 
viene ad un risultato della diagonale inte- 
ro o comunque più "corto” del prece- 
dente, questo verrà visualizzato al di so- 
pra del precederne lasciando inalterate le 
cifre che. con la sua lunghezza, non rie- 
sce a "coprire”. 

Questo inconveniente può creare con- 
tusione nella lettura del risultato. 
Bisogna quindi, prima di stampare un 
nuovo risultato, cancellare quello vec- 
chio stampando, ad esempio, un numero 


sufficiente di spazi bianchi sulla riga da 
cancellare. Digitiamo, a tale scopo, le 
linee che seguono: 

155 GO5UB30U 
165 G05UB300 
175 GOSUB 300 

c le linee 3 10 e 3 15 del listato finale. 

Le lince 155, 165, 175, inserendosi im- 
mediatamente prima delle linee di stam- 
pa dei risultati, richiamano la subroutine 
della linea 300, la quale ha il compito di 
stampare unii fila di spazi bianchi al po- 
sto del risultato precedente, col risultalo 
di cancellare lo stesso 

Pei far stampare il nuovo risultato allo 
stesso posto di prima, bisognerà quindi 
far tornare in alto di una linea il cursore c 
a questo pro\ vede il CHRS ( 145). 

Il programma, con le modifiche ap- 
portate, funziona ora in modo più che 
soddisfacente. Da notare soltanto che se 
vengono introdotti dapprima un numero 
"corto”, e poi uno più lungo, dovremo 
cancellare le cifre eccedenti del vecchio 
numero premendo la barra spaziatrice 
tante volte quanto è necessario, prima di 
premere Return 

Naturalmente questo programma può 
essere modificato, in modo da calcolare, 
oltre al parallelepipedo, anche la pirami- 
de, il cubo,., o chissà che cosa, ma que- 
sto è compito vostro (altrimenti a che 
cosa è servito I articolo*). 

Segue il listato completo de! program- 
ma ! i e ve meni c tn odi fi ca lo ( son t> st a te a g- 
gìunlc l’arca di base e l’area laterale) ed il 
llow eh art dello stesso, per una migliore 
comprensione dell 'insieme. 


Diagramma c/ì flusso del 



Stampa intestazione 
Porta cursore In alto 



Calcola le quantità 
AB, AL, AT, VO, DG 
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DIDATTICA 


2 REM MIMI FOGLIO ELETTRONICO 

3 REM PER TUTTE I COMPUTER CON 
MODORE 

4 " 

5 PRIMI L HRf i; 147 ) ; CHR$ (14 > ; REM 

PULISCE LO SCHERMO E METTE i 
N MINUSCOLO 

6 C = 33 - R E M # * * + * * t & ;* * * : * * i * + + $ 
*** 

7 : REM * C - ì PER VIC20 

* 

8 : REM * C - 3 B : PER GLI ALT 

RI * 


30 


3 : 

* * * 


REM ****£******:+:*(;***:*.*:* 


10 

PRIMI 

CHR$( 13); 

: REM FUNZIONE 


HOME 




20 

FRI NT 




30 

FRI NT 

* CALCOLI 

SUL PARALLELE? 


IPEDO 

RETTANGOLO « 


40 

FRI NT 




45 

REM 

#** INPUT 

** + 


50 

IhPUT 

"LATO A 11 

; A : REM 

INPUT 


LATO 

A 



60 

INPUT 

M LATO B" 

; B : REM 

INPUT 


LATO 

B 



70 

INPUT 

n LATO H a 

jhsrem 

INPUT 


LATO H 


30 

100 

U 35 

1 10 

1 15 

130 

138 

140 

150 

160 

170 

180 

800 

300 

310 

315 


PRIMI; POR K - 1 TO C SPRINT 
11 - " ; : NEKT K : PRIMI : REM STAMPA 
LINEA DI SEPARAZIONE 
REM *** CALCOLI *** 
AB=a*B:REM AREA DI BASE 
AL=2*H* (A +8 ) i REM AREA LATERA 
LE 

AT = 2* (A*B+A*H4B*H) : REM AREA 
TOTALE 

VO-A*B*H:REM VOLUME 
DG=SQR<A*A+B*B+H*H) s REM D I AG 
ONALE 

REM *+* OUTPUT ** + 

GOSUB 300 SPRINT “AR , BASE = 

8: REM STAMPA AREA DI BASE 
GOSUB 300; PRIMI 11 AR * LAI, - 
L : REM STAMPA AREA LATERALE 
GOSUB 300 SPRINT n AR*TOT,=" 

T: REM STAMPA AREA TOTALE 
GOSUB 300 SPRINT "VOLUME »" 

Gì REM STAMPA VOLUME 

GOSUB 300 5 FRI NT M D I AGON, = H ;0 

Gì REM STAMPA DIAGONALE 

GOTO 1 0 ! REM RICOMINCIA 

REM *** CANCELLAZIONE RISULT 

ATI PRECEDENTI 

POR K = 1 IO C’i SPRINT " 

NEXT K 

FRI NT SPRINT CHR$< 145); s RETURN 


" ; A 


,j ;a 


; A 

; v 


Le immagini 
dò questo 
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QUALSIASI COMPUTER 


Test per cuor! solitari 

di Luca Uuluzzi 



Un simpatico scherzo 
per divertire gli amici e 
(se siete timidi) 

anche un modo originale 
e non compromettente 

per richiamare 
l’attenzione 

della ragazza del cuore. 


ÌT 9 

idea È quella di trasformare il com- 
puter in una sona dì consulente senti- 
menti] e decisamente poco onesto. 

Ha infatti il compito di porre una serie 
di domande ai partecipanti al test in mo- 
do da determinare se fra di essi vi sia o 
meno ima coppia ideale. 

L'individua gioite delle due anime ge- 
melle risulta in realtà una vera truffa (a 
fin di bene) poiché fin dall’inizio il com- 
puter ha già “deciso'' quali sono i due 

forni nati. 

Sarete infatti voi stessi ad inserire all’i- 
nizio del programma (naturalmente pri- 
ma che gli invitati vengano a casa vostra) 
il vostro stesso nome e quello della ragaz- 
za in modo che qualunque sia il numero 
dei partecipanti e le risposte alle doman- 
de del computer , il risultato non cambie- 
rà: il computer annunccrà sempre che la 
coppia ideale è costituita da voi e dalla 
ragazza ih cui nome (che nitro non è se 
non dolce armonia di suoni) è stato inse- 
rito nel programma. 

Rossori (che una volta erano di moda) 
0 imprecazioni faranno da sfondo a que- 
sto simpatico gioco che potrà portare àn 
che ad estreme conseguenze di cui non ci 
assumiamo alcuna responsahità (ricor- 
datevi comunque di inviarci r confetti in 
caso positivo). 


Come sì usa 

Il programma è veramente dementare 
e per la descrizione va diviso in tre parti 
fondamentali. 

Nella prima di queste il computer chie- 
de quanti siano L partecipanti al test e 
quanti di essi siano maschi (non per ma- 
schilismo ma per semplicità). 

Immediatamente dopo comincia a 
chiedere il nome di ognuno. 

Nella seconda parte, dopo aver dato 
una brevissima descrizione di ciò che si 
appresta a fare, il computer porrà ad 
ogni partecipante una serie di domande 
dì carattere generale. Una volta termina- 
ta, la terza parte fornirà il responso finale 
del test comunicando i nomi delle due 
anime gemelle che, naturalmente, cono- 
scevate benissimo! 

Come fu ozio mi il programma 

La prima tinca è costituita dalfasse- 
gn azione dei due nomi alle variabili strin- 
ga F$ e MS nelle quali dovrete porre 
rispettivamente il nome della ragazza ed 
si nome del ragazzo che volete siano pre- 
scelti (galeotto fu il computer. . . ). 

Il programma continua assegnando al- 
la variabile N il numero totale dei parte- 
cipami ed alle variabili M ed f il numero 
dei partecipanti maschi e femmine. 

A questo punto vengono dimensiona- 


te due matrici alfanumeriche NM$ e NF$ 
che conterranno rispettivamente i nomi 
dei ragazzi e quelli delle ragazze 

Di seguito cominciano due cidi suc- 
cessivi con t quali viene assegnato il no- 
me di un ragazzo o dt una ragazza ad ogni 
elemento della matrice. 

Uria volta terminati i due cidi dì in- 
gresso e assegnazione, iniziano altri due 
cidi con lo scopo di porre ad ogni parte- 
cipante l'intera serie di domande imma- 
gazzinate nelle istruzioni DATA, 

Il primo ciclo si ripete esattamente un 
numero di volte corrispondente al nume- 
ro di ragazze che partecipano al test ed 
al fintemi) di questo ciclo ne esiste un 
secondo, cosidetto "nidificali)" nel pri- 
mo, che ha il compito di leggere con 
un'istruzione READ ognuna delle otto 
domande presemi nei DATA, e di porla 
sullo schermo. 

À questo punto un'istruzione dì IN- 
PUT attenderà la risposta che, natural- 
mente, verrà completa mente ignorata. 

Nel programma questo ciclo più inter- 
no si ripete per otto volte, tante, cioè, 
quante sono le domande, ma naturai- 
mente voi potete aumentarle a piacere 
modificando il numero 8 che compare 
nel FOR/NEXT ed aumentando artolo 
gannente le linee di istruzioni DATA ag- 
giungendo le nuove domande- 

li tipo di domande dipende unicamen- 
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GIOCHI 


te dalla vostra fantasia; come potete ve- 
dere, infatti, quelle presenti nel listato 
pubblicato sono tutt’altro che pertinenti 
con l'argomento del test. 

Gli stessi due cicli nidificati sono poi 
ripetuti in modo pressoché identico per 
quanto riguarda ? partecipanti maschi e 
se siete intenzionati ad aurnenctare il nu- 


mero di domande dovete modificare an- 
che qui il valore (8) presente nel ciclo 
FOR/NEXT più interno. 

Una volta terminati i cicli, il program- 
ma terminerà con la stampa del messag- 
gio di chiusura nel quale si nominano i 
due cuori fortunati che altro non sono se 
non il contenuto dello duo variabili MS e 


F$ che avete assegnato all'inizio del 
programma. 

Si declinano, per ovvie ragioni, tutte le 
responsabilità sulle modifiche che, ap- 
portate al programma, siano tali da in- 
fluire sui vostri rapporti sentimentali. 
Siamo però convinti che non potranno 
essere altro che modifiche piacevoli. 


30 REM TEST PER CUORI SOLITARI 
40 REM ESEGUIBILE SU 
50 REM QUALSIASI COMPUTER 
60 ; 

70 REM BY LUCA GALUZZI 
91 : 

95 M$= fl LU I " : F$= "LE I 11 ! REM INSERÌ 
SCI QUI I NOMI 

96 : 

100 PRlNTCHR$n47)CHRS< 142>CHR*<8 
) 

110 1MPUT "QUANTI SIETE A PARTECI 
PARE AL TEST ,f ;N 

1£0 PRINT: INPUT "QUANTI MASCHI %' 
M 

125 DIM NM$CM),NF$<N-M> 

130 FOR A= 1 TO M:PRINTlRRINT J, NOME 
DEL RAGAZZO N. " I A; 

140 IbPUT NM$<A) 

,150 NEXT 

160 FOR A- 1 TO N-M:PRIMr SPRINTANO 
ME DELLA RAGAZZA N. n ;AJ 
170 INPUT NF$<A> 

180 NEXT 

190 FRI NT" ECLEARHa D0LJN10RA VI 
R I VOLGERÒ 1 UNA BREVE SERIE DI 

A ", 

£00 PRINT" [DOWN3DOMANOE ATTRAVERS 
0 LE QUALI SCOPRIRÒ*” 

£10 PRINT" [0GUN3 SE TRA VOI SONO 
PRESENTI DUE ANIME" 

££0 PRINT" I DOWN] GEMELLE. 

£30 PRINT" £5 DOWN 3 [3 RIGHT3PREMI 
UN TASTO PER CONTINUARE" 

£40 GET AS: IF AS=" " THEN £40 
£50 PRINT" [OLEARI ":FOR A=1 TO N-M 
£53 RESTORE :FOR X=I TO 3: REM NU 
MERO DOMANDE 
£55 READ' A* 

£60 PRINT" [DOWN3 ”;NFS<A)J 11 , " :PRIN 
T SPRINTASI ” ?" s INPUT BS 
205 NEXTX 


£70 NEXTA 

280 FDR A= 1 TO M 

£85 RESTORE :FOR X=I TO 8: REM NU 
MERO DOMANDE 

£30 READ AS 

300 PRINT" CDGWN3 " JNMS(A); " , " «PRIN 
T;PR INTASI “ INPUT BS 

305 NEXTX 

310 NEXTA 

320 DATA "QUALE E* IL TUO COLORE 
PREFER I TO QUALE E* IL TUO S 
EGNO ZODIACALE" 

330 DATA ‘PREFERISCI BEETHOVEN O 
PUPO* r “TI RITIENI UNA PERSONA 
INTELLIGENTE” 

340 DATA "SEI ALTO/A PIU* D MENO 
DI 1,42 M”, "QUANTE ORE DORMI 
PER NOTTE" 

350 DATA "PREFERISCI RISOTTO 0 PA 
STASC IUTTA 11 

360 DATA "A COSA TI FA PENSARE IL 
TERMINE * P ANZ EROTTO 1 " 

365 s 

370 REM * PER AUMENTARE IL NUMER 
0 DI DOMANDE * 

380 REM * AGGIUNGILE QUA DI SEGU 
ITO CON * 

330 REM * ISTRUZIONI DEL TIPO: D 
ATA "DOMANDA" 

400 REM * ED AUMENTA IL NUMERO D 
T DOMANDE * 

410 REM * ALLE LINEE 253 E 285 * 

1000 PRINT" [OLEARI [3 DOWN 3 FRA VOI 
HO RAVVISATO LA PRESENZA DI D 
UE" 

1005 PRINT” £2 DOWN 3 ANI NE COMPLEMEN 
TAR I f ” 

1010 PR I NT “ [ £ OOWN3 “ I FSl * , IL TUO 
RAGAZZO IDEALE" 

1015 PRINT" [£ DOW43E' INDUBBI AMENI 
E ... "CHRSCÌ8); 

10£0 FOR D=1 TO 5000: NEXT 

1030 PR INTMSSPR INTCHRSC9) 
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Diesel o benzina? 



di M assiro o Po Nutrì 


i consigliamo di copiare subito il 
programma c di continuare poi la lettura 
del l'articolo in modo da facilitarne la 
comprensione, 

H programma 

Dato il RUN il computer comincia a 
porvi una serie di domande rigurdanti i 
due modelli di autovetture (8= benzina 
D=diesd). 

Se volete essere sicuri di aver trascritto 
senza errori lì listato di queste pagine, 
servitevi dei dati riportati in figura 1, 

Ricordo ai meno esperti che la virgola 
decimale (*) va sostituita con il punto (.) 
Se avete copiato correttamente dati e 
programma, appare un unico prospetto 
(per C64 e Ct6) in cui sono contenute le 
cifre totali per le varie spese. 


Questo programma 
vi aiuterà a risolvere 
un dubbio che assilla 
parecchi 
automobilisti o 
aspiranti tali: 
acquistare cioè 
un’automobile 

•i 

alimentata a benzina 
oppure a gasolio. 


Per quanto riguarda la versione VTC 
20* invece, la grìglia video di soli 23*22 
caratteri rum ha permesso un'identica 
rappresentazione. Infatti, vengono pre- 
sentati prima due prospetti per le spese- 
parziali di entrambi i modelli, e poi uno 
solo contenente la parte bassa del pro- 
spetto del f '64. 

I possessori del Vìe 2U, i.nsommn * do- 
vranno aggiungere o sostituire le righe 
indicate nel secondo listato pubblicani 

Dopo la visuali //Azione della prima 
parte, viene chiesto se vogliamo cambia- 
re qualche dato. 

Rispondendo ' S" ( — si ) * viene chiesto 
il numero del dato da cambiare. Questo 
va ricercalo leggendo semplicemente lo 
schema appena visualizzato sullo 
schermo. 
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Giochiamo un po T col programma 

Col listalo pubblicato possiamo anche 
“divertirci". 

Ad esempio, proviamo a cambiare la 
situazione proposta dalla figura 1, 

Alta domanda riguardante il numero 
de! dato da cambiare rispondete con 
“13", 

Alla domanda sul numero dei Knri 
annui rispondiamo con 200000 e con 1 
alla domanda successiva. 

A questo punto dovreste avere davam 
ti il prospetto in fondo al quale compare 
la domanda sul cambiamento dati: ri’ 
spendete "N' (=no). 

La scritta è rapidamente sostituita da 
un altra che ci consiglia l'auto diesel. 


Por finire.,. 

Adesso parliamo un po" del “recti pe- 
ro'" di cui abbiamo parlato all’inizio. 
Prendendo in esame vari modelli di auto- 
mobili si può notare che la svalutazione 
annua oscilla intorno a! 10% , 

Si può, pertanto, recuperare il 90 °fr 
della cifra spesa o. se preferite, il 9CT& 
della cifra che era possibile ricavare l'an- 
no prima. 

Chi ritiene che questo valore sia inade- 
guato. può sostituirlo apportando una 
semplice modifica alla linea 1005: 

1005 Xl=xr .9 

n dato da modificare, naturalmente, è 
il v '.9" che sta a rappresentare il 90^£ 
della cifra che era possibile recuperare 
Tanno precedente. 

In altre parole, per “recupero'' si in- 
tende la cifra che potrete ottenere riven- 
dendo l auto una volta trascorso il perio- 
do di tempo indicato. Tale indicazione è 
indispensabile per effettuare un corretto 
confronto tra le due auto. 


(ha collabolato Carlo (Trippa per la ver- 
sione VIC 211) 



Figma I 

Auto a benzina: RAT UNO SX 5 porte (ccl301) 

Prezzo: 

11 dì Benzina: 

Km/1 
Bollo: 

Assicurazione: 

Manutenzione: 


Figura 2 

Auto a gasolio: FIAT UNO D Super (CC1301) 


Costo: 

L 

12.223.000 

11 di gasolio: 

L. 

690 

Km/1 


15,9 

Bollo: 

L 

357.800 

Assicurazione: 

L 

500.000 

Manutenzione: 

L, 

200.000 

Km/annui 

i 

10000 

Annidi utilizzo 


1 


ng’jTB J 

In base ai dati forniti in figura 3, quest? sono i risultati che M 
computer deve fornire: 

A cui: 1 



benzina 

diesel 

Carburante: 

1,098.360 

433.962 

Assicurazione: 

450.000 

500.000 

Tasse: 

67,800 

357,800 

Manutenzione: 

200,000 

200,000 


Totale spese: 

1.806.160 

1.449.172 

Recupero: 

10,784.410 

11.122.930 


Differenza di spesa - 314.398 

Conviene Tanto diesel 

N B Col termos TASSE si intende la cifra del bollo moltiplicala perii numero di 
anni indicato 

La cifra relativa alla manutenzione é arbitraria (purché credibile...) 

Perl' assicurazione invece , una telefonala aduna qualsiasi agenzia può fornirvi i 
dati, pur se approssimativi \ delia polizza RlC e di quella per furto e incendio che 
costa circa 25000 per ciascun milione assicurato. 


L1 1.651,000 
L 1340 
12.2 

L 57 .800 

L 450.000 
200.000 
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10 REM DIESEL 0 BENZINA? 

15 ì 

£0 REM PROGRAMMA PER QUALSIASI 
£5 REM COMPUTER COMMODORE 
30 i 

40 REM BY POLLUTR I MASSIMO 
50 : 

100 DIM C (£4 ) 

IÌ0 A=1 SB-12S0OSUB 50tì : GOSUB 650: 
GOSUB 1000 

1£0 PRINTCHR$U47>CHR$< 18); 

1£1 PR INT W R ISULTATI 

[RVOFF ì CDO UN 3 
SPESE: "SPC (20 ) 11 ANNI : n AU 
1£5 PR IMT Ir IDGWNI £3 RI 

GHTJ BENZ INA ”SPC <9 > "DIESEL" 
136 PR INI " [ DOkNlCARBURANTE : SI C 

C 17) ,0(18) 

140 FRI NT" [DOUIN 3 ASSICURAZIONE: rl C 
< 13 > f C( 14) 

150 PRINT" [DOWN 3 TASSE: "C 

( 15 ) ,C < 16) 

180 PRINT" CD0WN3MANUTENZ IONE: "C 
C 13) ,C(£0) 

170 PRINT 1 ' *«”«* = = = = = = = = «“« = 


1S0 PRINT" C DOWN ITO TALE SPESE : "C 
(£3 > ,C (£4 ) 

130 PRINT" ED0WN3DIFFERENZA DI SPE 
SA “ 11 DPR 

£00 PR INI " [ DOi’JN ] RECUPERO : "C 

<21)SPCC5>Cc£2) 

£10 INPUT H [£ D0UN3VU0I CAMBIARE 
QUALCHE DATO <S/M) J ;SS 

££0 IF S*<> M S n THEN PRINT" CUPI 

11 : GOTO £30 

££5 PRINTCHR$U47>CHR$C 17) 

£30 RESTORE : FOR I-I TO 1£ : READ A 
$:PRINTi;fié;C< I > :N£XT 

£35 PRINT" 13 KM ( "KA " ) ANNI"AU:F 
RI NT" 14 TUTTO " 

£40 I IsPUT "[ DOWN] QUALE VUOI CAMBI 
ARE < NUMERO > B ;C 

250 IF 013 THEN GOSUB 650: GOSUB 
1000: GOTO 120 

£60 IF C= 1 4 THEN 110 


£6£ IF 014 OR C<1 THEN £40 
£65 IF Ol THEN RESTORE :GOTO £30 
£70 RESTORE :FQR Ol TO C-lsREAD 
A£:!\EXT 

2S0 A=CìB=C:GOSUB 530=GOSUB 10001 
GOTO 180 

£90 IF C (£3 ) >C <£4 ) THEN PRINT" EUR 
SCONVIENE L 1 AUTO DIESEL*: GOTO 
300 

£95 PRINT" [UPJCGNV IENE L’AUTO A B 
ENZ INA" 

300 END 

500 PRINTCHR$< I4?}CHR*< 18}* DIESE 
L □ BENZINA ? 

" ; RESTORE 

530 FOR J=A TO BiREAD A$:PRINT"CD 

ami n m 

560 INPUT C ( I ) 1 NEXT ! RETURN 
650 INPUT 11 [DOWN 3 QUANTI KM ALL 1 AN 
NO " ; KA 

680 INPUT "[D0WN3AFMI DI UTILIZZO 
“ ; AU : RETURN 

1000 X i ” 1 : FOR XX=1 TO AU 

1005 X 1 -X 1 * . 9s REM 0.9 = 10X 0,8=£0 

X 0.95*5X ECCETERA 

1006 NEXT:R=X1 

1010 C ( 13 ) =C<7 ) *AU * C ( 14 ) =C (8? *AU 
1020 CC19)=G<11) tAU : C <£0 ) =C C 1S) *AU 
1040 C( 1B)-C(10) *AU : C < 1 5 > =C ( 3 ) *AU 
1050 C< m^INTCC <KA*AU)/C<5) }*CC3> 
) 

1060 C< 10) = INT< < < K A * AU ) ./C <6) ) *G < 4 > 

) 

1070 C <24 >=C< 14 ) +C < 16 ) +C ( 18) +C (£0 ) 
1075 C<£3)=CU3)+C< 15)+DC 17)+CU3) 
1080 C < ££ ) - 1 NT ( C < £ > *R ) 

1090 C <£ I 5-INT(C( 1 )*R) 

1110 □FR=CC£3)“C<£4>: RETURN 
3000 DATA COSTO AUTO <B) , COSTO AU 
TO (6) ,C03T0 AL L, (B) 

3010 DATA COSTO AL L* <G),KM CON 
UN LITRO CB) 

30£0 DATA KM CON UN L I TRO - <G ) ,ASS 
ICUR AZIONE AUTO (B) 

3030 DATA ASSICURAZIONE AUTO <G>, 
BOLLO AUTO CB), BOLLO AUTO <G) 
3040 DATA MANUTENZIONE CB),MANUTE 
NZ I ONE < G ) 
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Monitor Commodore e disk drive 1541 
sono le periferiche che ti permettono di 
utilizzare ai meglio il tuo computer 
Commodore e di prepararti per il futuro. 

Con il disk drive Commodore , 
memorizzi più velocemente i dati su 
dischetti standard e puoi caricare i 
programmi in un attimo. 

Con il monitor a colori ad aita 
definizione d’immagine puoi evidenziare le 


tue qualità di programmatore, utilizzando 
ai massimo fe capacità sonore e grafiche 
del tuo computer. 

Monitor e disk drive oggi convengono, 
perchè hanno un prezzo eccezionale, come 
d’abitudine Commodore. Inoltre, proprio 
per dimostrarti quanto puoi fare di più con 
queste periferiche, Commodore ti fa un 
regalo speciale. 

Acquistando monitor o disk drive entro il 






compresi nei prezzo come regalo, il favoloso 
computer-rack creato per ospitare il tuo 
sistema Commodore, oppure i formidabili 
sci del team Commodore Adventure. 

Due opportunità incredibili ma vere. 

Vai subito al tuo negozio Commodore e 
approfitta dell’offerta “Fai di più col tuo 
Commodore 

sci: cm 175 / 195 - rack: cm 90x90x 70 


^Commodore 






GIOCHI 

COMMODORE 64 

■ e 

Destra - Sinistra 

dì Giancarlo Ma risiili 



ucsto è un semplice gioco che gira 
SUL Commodore 54 ed è scritto parte in 
BASIC e parte in Linguaggio Macchina 
(L.M.), in modo da ottenere una buona 
velocità di esecuzione. 

Il campo da gioco è diviso verticalmen- 
te in due parli da una serie di rettangolini 
verticali continuamente in movimento' 
verso Tallo* 

I] gioco consiste nel passare attraverso 
le fessure che ci sono tra un re t tangoimo 
ed i.1 successivo, alternativamente a sini- 
stra e a destra per il maggior numero di 
volte e nel minor tempo possibile. 

Conte gira il programma 

1 tasti per ìt movimento sono "A" (si- 
nistra) c 4t D + ’ (destra). 

Quando si urta uno di questi rettango- 
lini il gioco finisce e vengono visualizzati 
sia i pumi (che corrispondono ai passaggi 
riusciti) che il tempo di gioco. 

Si può selezionare la difficoltà del gio- 
co tra 0 e 5. Questa controlla la velocità 
di spostamento dei rettangoli, che co- 
munque si incrementerà automatica- 
mente durante il gioco, rendendo piti dif- 
ficoltoso il passaggio. 

Come funziona il programma 

Per formare la linea in movimento so- 


no stati utilizzali sei sprite espansi in ver* 
ticale e messi uno sopra Tahro, 

Facendo partire il gioco la routine LM 
di rotazione (vedi disa ssemb lato) sposte- 
rà ì dati degli sprite di un pixel '"verso 
Tallo 1 ' e contemporaneamente farà rien- 
trare "da! basso" la parte di figura fuo- 
riuscita, producendo così l'effetto di mo- 
vimento della linea. 

Le routine L.M. si occupano inoltre di 
esaminare il tasto premuto e di muovere 
di conseguenza il " giocatore ", annesso 
uno sprite. 

Il tutto è realizzato ricorrendo alla tec- 
nica della programmazione in Interrupt 
(vedi C.C.C. N,13), in modo da non su- 
bire rallentarne mi da parte del BÀSTC. 

Al BASIC resta il compito di control- 
lare le varie schermate, le intestazioni, il 
controllo del punteggio e del tempo, ed 
infine il controllo di collisione tra il gio- 
catore c la linea, 

Le routines LM occupano i byte* da 
49152 a 49246 e sono caricate tramite i 
dati della linea ltXMU) c seguenti. Si rac- 
comanda la solila attenzione nel copiare 
queste linee, 

Cè un controllo di errore incluso nel 
programma, ma purtroppo non è infalli- 
bile per cui si consiglia di registrare il 
programma prima di mandarlo in 
esecuzione* 

Il gioco si presta a modifiche e miglio- 
ramenti, specialmente per la parte in 
LM t per cui, neofiti del LM.*., Buon 
lavoro! 


Un giochino di totale 
disimpegno, che si 
rivela però molto utile 
per chi inizia a 
lavorare in 
linguaggio 
macchina. 
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1 REM GIOCO*. LEFT-RIGHT 
3 REM SOLO PER COMMODORE G4 
5 REM DI GIANCARLO MARIANI 
16 POKE 53280, 15: POKE 53281, 15 :P 
R INTCHR* (3 1 ) : GOSUB 5000: REM 
«INIZI AL IZ2AZ IONI 
15 GOSUB 5500 : REM «ISTRUZIONI 
20 GOSUB 5200: REM «CAMPO DA GIO 
CO 

25 GOSUB 6000 : REM «GIOCO 
30 GOSUB 5400: REM «FINE 
35 IF A$= ’S “ THEN RUN 15 
40 PRINTM2 DOWN ] ... CIAO ...": 
END 

5000 REM **« INI2 IALIZZA2 IONI **« 
5002 PR 1 NT " CCLEAR] ATTENDERE. .. " 
5005 T=0 ! FOR K=0 TO 34: READ A: POKE 
49 152+K , A s T=T+A s NEXT 
5010 IF T< >11351 THEN PR 1NT" [DOLM3 
ERRORE htl DATI ! ! " : END 
5015 FOR K=2040 TO 2045:POKE K,13: 
fCXT:POKE 2048,14 

5020 FOR K =0 TO 26 STEP 3: POKE 332 
+K ,0 : POKE 332 +K 1 1 ,255 : POKE 33 
2 +K +2 ,0 : NEXT 

5025 FOR K=27 TO S2:POKE 832+K,0:N 
EXT 

5030 FOR K =0 TO 62: POKE 896+K,0:NE 
XT 

5035 FOR K =0 TO 20 STEP 3: POKE 317 
+K , 15 : POKE 9 17+K + 1 ,255 ; POKE 3 
17+K +2 ,240 : NEXT 
5100 RETURN 

5200 REM *** CAMPO DA GIOCO *** 
5205 PR INT “ [OLEARI " : FOR K =53248 TO 
53258 STEP H:POKE K,I6B:NEXT 
5210 T= 15 : FOR K =53243 TO 53253 STE 
P 2: POKE K , T : T=T+4£ : NEXT 
5215 POKE 53271, S3:F0R T=53£3? TO 
53292: POKE T , 1 : NEXT: POKE 5323 
3,7: POKE 53269,127 
5220 POKE 53260 ,£50:POKE 53261,139 
5300 RETURN 

5400 FOR T=0 TO 200 : 1>EXT : POKE 5326 
9,0:PR INT" CCLEAR J’TPOKE 198,0 
5410 PR INT " C £ DOWN3 HAI URTATO ! H " 
5415 PR INT “ C2 DOWN] TEMPO DI GIOCO 
: "A* 

5417 PR I NT " [ 2 DOWN! PUNTI : "P 

5420 INPUT " [ £ DONNI ANCORA <S/N>" 
J A* 


5425 RETURN 

5500 POKE 532S0,6:PR INT" CCLEAR H£ 
□OUM3C2 R IGHT 1LEFT-R I 6HT DI 
. MARIANI GIANCARLO 11 
5505 PR I NT “ C 3 DOWN! C2 R IGHTITASTI : 
A=S INI STRA " 

5510 PR I NT " [ 9 R I GHT ] D ^DESTRA C 2 DOW 

N) 1 ’ 

5515 INPUT “C2 R IGHT 3D IFFI COLTA ' <. 
0 -5 ) " ,* A 

5520 IF A<0 OR A >5 THEN 5515 
5525 POKE 251 ,I0-A:POKE 252,I0-A:R 
ETURN 

6000 REM *«* GIOCO *♦* 

6005 D=0 : S = 1 :SYS49 1 77 : P =0 : :F=5:A=P 
EEK (53278 ) :TI*= "000000 " 

6010 IF PEEK (53260) >181 AND D=1 TH 
EN D=0 : S = 1 1P=P+ 1 : PR INT" CCLEAR 
]"P 

6020 IF PEEK C53268X 155 AND S = 1 TH 
EN S=0:D=1 :p=p+l SPRINT" CCLEAR 
3 V P 

8025 IF PEEK (53278 ) 00 THEN SYS492 
34 : A$=TI$: RETURN 

8030 IF P >=F AMD PEEK(251)>0 THEN 
F=F+5 : POKE 25 1 ,PEEK (25 1 ) - 1 
6035 GOTO 8010 

10000 DATA 162,000,189,064,003,157, 
061 

10001 DATA 003,232,224,063,203,245, 
162 

10002 DATA 002,189,081,003,157,124, 
003 

10003 DATA £02,016,247,036 

10010 DATA 120,163,038,141,020,003, 
169 

10011 DATA 192,141,021,003,088,096, 
133 

10012 DATA 252,016,807,032,000,192, 
165, 251 ,133 ,252 

10020 DATA 166,197,224,018,208,010, 
173 

10021 DATA 012,208,201,239,240,017, 

£38 

10022 DATA 012,208,224,010,208,010, 
173 

10023 DATA 012,208,201,080,240,003, 
206 

10024 DATA 012,208,076,049,234 
10030 DATA 120 , 169,043 ,141 ,020,003 , 

169, 234,141,021,003,088,096 
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DISAS SEMBLATO 

, * 

5 REM DISAS5EMBLATC DEL GIOCO LEFT-R IGHT 

G REM SINTASSI MICRO-P G510 

m 

f » 

10 

$C000 

LDX #$00 DOTAZIONE SPR1TE 

1 1 

$0008 

LDA *0340, X J 

ie 


STA $033D,X ; 

13 


3NX ; 

14 


CFX #*3F J 

15 


BNE *C00£ ; 

16 


LDX #$0£ ì 

17 

*C00F 

LOA *033D,H i 

13 


STA $037C,X ; 

19 


DEX ; 

£0 


BFL $C00F 

£1 


RTS ; 

£8 


SEI ; INTERRUPT A ROUTIfJE UTENTE 

83 


LDA #$86 ; 

84 


STA *0314 ; 

85 


LDA #*C0 ,* 

86 


STA $0315 ; 

87 


CLI ! INTERRUPT A *C0£6 

88 


RTS ; 

£9 

$C086 

DEC *FC ;DECREMENTA CONTATORE DIFFICOLTA* 

30 


BPL SC03 1 JE* A ZERO... NO • SALTA A *C031 

31 


JSR $C000 ; SI : CHIAMA ROUTINE ROTAZIONE,.. 

38 


LDA *FB ;E RIPRISTINA VALORE DIFFICOLTA* 

33 


STA $FC ; 

34 

$C03 1 

LDX $C5 ; LEGGE TASTO PREMUTO 

35 


CPX #$18 ^E 1 "0% , , 

36 


BNE *0041 ; NO J SALTA A *C04Ì 

37 


LDA *D0BC , S I s CONTR . COORD . OR IZZ . SPR I TE S 

38 


CMP #$EF ;E ] 833, . , 

39 


BEO $C04F ; S 1 5 SALTA A $C04F 

40 


INC $O00C ; NO s MUOVE A DESTRA 

41 

*C041 

CPX #$0A ; IL TASTO E 1 11 A % . , 

48 


BNE *C04F ; NO: SALTA A *C04F 

43 


LDA *0000 ^ SI s CONTR. COORD . OR IZZ .SPR ITE 6 

44 


;cmp #$50 ;e 1 80 , . , 

1 45 


BEO *CB4F ? SI: SALTA A *C04F 

46 


DEC *D00C J NO SMUOVE A SINISTRA 

47 

*C04F 

JMP *EA3 1 J SALTA A INTERRUPT S.O. 

43 


SEI ; R IPR ISTINA INTERRUPT 

43 


LDA #$31 ; A FINE GIOCO 

50 


STA $0314 ; . 

51 


LDA #*EA ; 

58 


STA $0315 ; 

53 


gl i ; 

54 


RTS J RITORNO AL BASIC 

READY, 
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SPAZIO 

COMMODORE 

CLUB 


£’ in edicola Commodore Club di 
ottobre: tanti meravigliosi giochi 
programmi di utility e parecchie altre 
sorprese per gli utenti di computer 

Commodore. 


M. lettori di questa rivista hanno tm'irrv 
portante appuntamento mensile con la 
pubblicatone su cassetta Commodore 
Club, 

Questo mese vi verranno offerti dei 
programmi in grado di soddisfare le piu 
svariate esigenze . Il gioco, il passatempo 
e gli argomenti di utilità e di attualità 
sono gli ingredienti principali della 
pubblicazione. 

In questo numero potrete cimentarvi 
in interessami e difficili competizioni 
scacchistiche contro il vostro Commodo- 
re 64, 

Il programma Craxi runner cerca di 
trasportare in chiave dì videogame le 
quotidiane difficoltà che è obbligato ad 
affrontare il nostro presidente del 
consiglio, 

Vegas è un classico gioco spaziale che 
non potrà fare a meno di impressionarvi 
per la dinamicità delle situazioni che vi si 
presenteranno. 

Già nei numeri passati la rivista Com- 
modore Club si è occupata di personaggi 
particolarmente cari alla fantasia dei 
bambini (Pinocchio, Pollicino,.. ), 

Questa volta vi proponiamo il gioco 
Capitan Nemo ispirato al noto protago 
nìsta di un romanzo di Giulio Vemc. 

Esaurita la parte della rivista dedicata 
prettamente al diletto, adesso ci occupe- 
remo dei programmi di utilità. 

Il software meteo 1 vi consentirà ói 
simulare, anche visivamente, le note pre- 
visioni metereologjche del computer del- 
la seconda rete televisiva. 

Le suggestive immagini del calcolatore 
vi aiuteranno ad interpretare corretta- 
mente i fenomeni atmosferici. 

Il programma renumber è una utility 
che vi consentirà di rinumerare, come 
più vi aggrada, i listati da voi creati, 

I programmi citati sino a questo mo- 
mento sono destinati agli utenti del com- 
puter Commodore 64, ma anche coloro 
che possiedono un Vie 20 o un Commo- 
dore 16 o un Plus 4 potranno trarre bene- 
ficio da q uesta pubblicazione su cassetta, 

I listati destinati agli utenti del compu- 
ter Vie 20, sono nell’ordine: Polifemo t 
Allarme rosso e Andromeda. 


La capacità di saper muovere veloce- 
mente il vostro supporto giochi è una 
qualità essenziale per eccellere in questi 
videogame. 

Coloro che possiedano un Commodo- 
re 16 0 un Plus 4 potranno anch’ essi 
comprare la nostra pubblicazione. 

Cobra è un gioco di azione dotato dì 
molteplici quadri e diffìcili situazioni da 
affrontare, 

Kalah è un game di società, in cui vi 
cimenterete contro il vostro computer 
net tentativo di batterlo. 


Banca Dati 

Il problema di dover catalogare tutti i 
più svariati aspetti della nostra vita quo- 
tidiana è una esigenza impellente per 
molti di noi. 

Molti elementi della nostra attività E<i“ 
vorativa e dei tempo libero richiedono 
un processo di ordinamento che ci con- 
senta di districarci con sufficente velocità 
e accuratezza tra la notevole mole di dati 
che siamo abituati ad affrontare quoti- 
dianamente. 

La cassetta Banca dati", supplemento 
alla rivista Commodore Club, vi permet- 



terà di avere a disposizione un database 
di notevolissime capacità. 

Una delle peculiarità più interessanti 
di questo prodotto è la possibilità di po- 
ter lavorare indifferentemente con i! re- 
gistratore oppure il drive. 



Gestione domestica 

A partire dalla metà di ottobre potrete 
reperire in tutte le edicole un programma 
che vi consentirà di gestire tutti t più 
diversi aspetti della vostra vita familiare. 

Questa cassetta contempla tre diversi 
programmi: 
a) gestione familiare 
h) dieta 

c) gestione scheda medica familiare 

It primo software vi consentirà di ave- 
re, in ogni momento, l'esatta situazione 
delle varie voci che costituiscono un bi- 
lancio familiare (casa alimentari, pro- 
blemi edili, gestione dei consumi esege- 
tici, gestione auto ccc.ecc...) 

Qualsiasi elemento inerente alla vo- 
stra vita domestica è contemplato in que- 
sto programma. 

Il secondo programma si occupa della 
dieta: purtroppo la nostra civiltà sottova- 
luta sempre Tini portanza di una corretta 
alimentazione. 

Questo programma vi consentirà di 
scegliere l'alimentazione più adatta, con- 
formemente alia vostra struttura fisica 

Ciascuno di noi dovrebbe essere in 
grado di poter fornire, in ogni momento, 
una corretta situazione della propria vita 
sanitaria. 

Il terzo programma simula, in maniera 
s u ffi ce n temente accurata, una cartella 
medica. 
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li UTILE 

PER QUALSIASI COMPUTER 

Rate o contanti? !? 

Una specie di spreadsheet 
per un’applicazione semplicissima 


i è mai capitato di dover fare un 
grosso acquisto ed essere indecisi se pa- 
gare in contanti o a rate? 

Per aiutarvi a comprendere meglio it 
problema ricorriamo ad un esempio. 

U n certo signor Rossi vuole acquistare 
un'automobile it cui prezzo su strada, in 
contanti, è di L. 12.000,000. 

Egli si c arche informato per un even- 
tuale pagamento dilazionato: 36 rate da 
L. 252, 000 mensili con un anticipo di L. 
3 <528*000 . 

Il signor Rossi ha un conto corrente in 
una banca della sua città in cui ha deposi- 
tato L. 23.000,000 ai tasso del 13%, 

E" da lì che vuole prelevare la somma 
per la macchina, altrimenti la moglie., . 

Anche per questo programma consi- 
gliamo a tutti i fedelissimi lettori di 
C.C C di copiarlo velocemente allo sco- 
po di seguire meglio, in seguito, il pro- 
blema del signor Rossi (che potreste an- 
che essere voi stessi ,.) 

13 programma sì basa sul presupposto 
che la somma da pagare in contanti* op- 
pure a rate, venga prelevata da un depo- 
sito bancario. 

Il listato, per quanto riguarda il paga- 
mento in contanti, simulerà il prelievo 
della cifra dal conto e poi calcolerà gli 
interessi, sulla cifra rimanente, per un 
tempo pari al numero dei mesi del paga- 
mento rateale. In questo modo sarà pos- 
sibile un confronto realistico su quanto 
rimane sul conto pagando in contanti op- 
pure n rate. 

Ovviamente il programma non tiene 
conto di eventuali versamenti o prelievi 
effettuati nel periodo interessato 
dall’operazione. 

Dopo aver digitato il programma* date 
il RUM. 

Per prima cosa si richiede quanto de- 
naro avete sul vostro c.c, (23UOOOOO nel 
nostro esempio). Di seguito viene richie- 
sto: il tasso d'mtercsse (13), la somma 
che si dovrebbe pagare se il pagamento 
avvenisse in contanti (12(XMXX)0), l'anti- 
cipo per il pagamento rateale (3528000), 


di Massimo Poli ut ri 

Questo programma 
permette di 
scegliere la forma 
più vantaggiosa di 
pagamento (rateale 
o contanti) tenendo 
conto delia cifra che 
rimane in banca a 
seconda della 
scelta effettuata. 



il numero delle rate mensili (36) e infine 
la quota dt ciascuna rata (252000). 

Facendo segui re, ad ogni domanda del 
calcolatore, la risposta prima indicata tra 
parentesi* possiamo vedere quale strada 
conviene al signor Rossi, 

Se avete risposto a tutte le domande* il 
programma farà i calcoli; necessari e ri- 
sponderà che conviene un pagamento 
rateale, 

Infatti, se il signor Rossi paga in con- 
tanti, dopo 36 mesi (supponendo che nel 
frattempo non si verifichino ulteriori 
prelievi o versamenti) avrà a sua disposi- 
zione 15290000; mentre pagando a rate, 
sempre dopo 36 mesi, avrà a sua disposi- 
zione L, 17676 1M. 


La subroutine 1000 

La subroutine 1000* che è quella che 
svolge i calcoli per il programma, è 3 uni- 
ca parte ‘'complessa". 

Il computer calcola dapprima istrada 
del pagamento in cornanti . 

Il primo calcolo della riga 1000 consi- 
ste nel sottrarre il prezzo deH'oggetto 
dalla cifra depositata. In seguito viene 
calcolalo l’interesse commerciale (e non 
mercantile) della cifra rimanerne per il 
tempo del pagamento rateale (nel nostro 
esempio: 36 mesi). 

Dalla riga successiva viene calcolata la 
seconda strada: quella del pagamento 
rateale. 

Per prima cosa viene sottratto rantici- 
po* poi viene simulato il passaggio dei 
mesi. 

Infatti il ciclo 1020-1050 scandisce il 
passare del tempo, la riga 1030 calcola il 
montante (ovvero capitale più rinteres- 
se) e la riga IMO sottrae la rata mensile. 

In pratica questo ciclo "simula” la 
banca che versa l'interesse sul conto del 
signor Rossi (1030) e il signor Rossi che 
preleva la rata di quel mese (1040), 

Terminato il ciclo, il programma passa 
a stampare i risultati visualizzando, dap- 
prima. un pro memoria utile per con- 
j frontarlì con i dati di partenza. 
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LUTILE 


£0 REM QUALE PAGAMENTO 
30 REM CONVIENE ??? 

40 : 

SO REM PROGRAMMA FINANZIARIO 
60 REM PER QUALSIASI COMPUTER 
70 s 

80 REM BY MASSIMO POLLUTRI 
39 : 

110 PRINTCHRSC 147) 

180 INPUT "QUANTO HAI IN BANCA 16 ;C 
CiCl^CC 

130 INPUT "INTERESSE B ANSAR IO " ; R 
140 INPUT "PREZZO IN CONTANTI") SE 
150 INPUT "ANTICIPO DI L-'NA 
160 INPUT "N. RATE MENSILI " ; RN 
170 INPUT "CIASCUNA DA L.'NLR 
830 GOSUB 1000 

340 PRJNTCHR*< 147)CHR$U8) " RISUL 
TATI NR$ 

841 PR INT "L . SUL CONTORCI 
348 PR INT" INTERESSE s *'R 
843 FRI NT "CONTANTI : "SE 
344 PR INTENTICI PO : "A 


845 PR INT rl NUMERO RATE : W RN 
348 PR INT "L . PER RATA : J| LR * PR INT 
850 PR INTR$“ PAGANDO IN CONTANTI, 
SUL TUO CONTO DOPO" 

860 PR INTRN* MESI RESTERANNO " : PR I 
NT 13 L . "SA 
365 PR INT 

370 PR INT "SE INVECE PAGHERAI LE 11 
RN* RATE SUL TUO" 

880 PR INT "CONTO RESTERANNO " : PR INT 
"L. "CC SPRINT 
300 IF COSA THEN 350 
380 PR INT "PAGA IN CONTANTI ! ! ì " :60 
TO 500 

350 PR I NT "PAG A A RATE !» H " 

500 ELD 

1 000 SE =CC -SE : SA - I NT < SE + < t SE *RN*R ) 
/1800) ) 

1010 COCOA 

1080 POR I = 1 TO RN 

1030 CC* INT < ( CC * < 1 300 +R > ) / 1 300 ) 

1040 CC-CC*LR 

1050 NEXT 

8000 RETURN 
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Editoriale 




giochiamo con.... 

a cura di Armton 


Kìkstars 



t sempre molto bello assistere alle corse 
dì I nai alia televisione, l'ormai famoso 
Sport sulle moto: è quindi logico che na- 
sca in tutti noi il desiderio di tutti dì 
impersonarsi nel campione, nell’eroe, il 
vincitore,; In questo gioco potrai ottene- 
re tutto ciò, 

ti' un gioco di abilità, di tattica c di 
velocità di movimento con il joystick. 1 u 
c la tua moto dovete percorrere 5(XJ m. di 
terreno accidentato. 

Dovrai saltare: macchine, tir, auto- 
bus, laghetti, tossi, moie e barili. Tutto 
per mettere alla prova la tua abilità di 
t ria lista. 

Ma gli ostacoli non sono finiti. Infatti 
ve ne sorto ancora altri di tre tipi, che 
sono costituiti da muletti a mattoni, muri 
c canee Metti che dovranno essere scaval- 
cati molto lentamente. Chi riesce a supe- 
rare i 5(J0 m, in meno di 50 secondi si 
qualifica fra migliori corridori. 

Esiste la possibilità di modificare il 
percorso, anzi vi sono otto varietà di per- 
corsi, fra cui potrai scegliere mettere in 
lila al fine di provare il brivido dell'Igno- 
to. Le gare potranno essere a singolo 


giocatore con un joystick . o in due con 
due joystick, 
t onsigho. 

Per chi usa il joystyek: facendo il salto e 
tirando la leva verso l'alto, si ottiene un 
in pennata in avanti. 

Tasti comando 

(tasto l) = impennata 
(etri) = decelerazione 
(tasto 2) — accelerazione 
(b. spazio) — salto 


IDEA 9 

GIOCABIUTA’ 9 

SUONO 9 

ANIMAZIONE 10 

VOTO 9 



Action Biker 



Clusmv Colling e un simpatico motocicli 
sta che con la sua moto deve trovare i 
suo amico Marti per portarlo t t li 'aereo- 
porta e partire per Ee vacanze. L'aereo 
parte alle 20.00, però Marti non si fa 
trovare nc a casa, nè in giro. La benzina è 
limitata e l'unico modo per trovare Marti 
è quello di entrare in alcune delle 150 
case per trovare degli indizi di lui. 

Solo in SU di queste troverete indizi, 
potrai fare il pieno del serbatoio da! ben- 
zinaio oppure passando sugli "skips". 
Attenzione però alle macchine e alle 
moto, che pur essendo vostre amiche si 
divertono a farvi perdere tempo. 

Può essere utile passare sopra gli zer- 
bini che vi daranno parecchi punti. 

State attenti a tenere d’occhio il serba- 
toio prima di rimanere a secco. 


IDEA 8 

GIOCABIUTA* 7 

SUONO 6 

ANIMAZIONE 8 

VOTO 8 


7 6 Commodore Computer Club 


BASIC 



Abbiamo notato che chi ha appena ac- 
quistato un computer Commodore si tro- 
va di fronte ad alcuni dubbi apparente- 
mente irrisolvibili. Per venire incontro ai 
neo-possessori, riportiamo qui di seguito 
alcuni consigli indubbiamente preziosi: 

I - Se utilizzate il registratore è buona 
norma, subito dopo il salvataggio (=re- 
gistratorc) dei programmi che digitate da 
riviste, effettuare l’operazione di verifi- 
ca, Questa si compie riavvolgendo il na- 


stro e digitando il comando VERIFY se- 
guito dalla pressione del tasto Return 
(vedi libretto di istruzioni allegato al 
computer). Se alla fine dell’ operazione 
compare il messaggio VERIFY BR- 
RQR, è necessario ripetere l iniera pro- 
cedura (registrazione + verifica). 

2 - Se il caricamento dei programmi (da 
nastro o disco) avviene con difficoltà 


vantaggio, è probabile che il programma 
sia stato registrato male o che la testina 
de! registratore sia disallineata. Con 
molta cautela, in quest'ultimo caso, ruo- 
tare con apposito cacciavite la vite di re- 
golazione di non più di un quarto di giro 
in verso orario oppure antiorario fino a 
che il caricamento non riesce. 


però un'operazione che può riuscire a 
persone piuttosto esperte e che possono 
disporre dei vari computer: non esiste, 
infatti, una regola unica e generale di 
adattamento di programmi ma. volta per 
volta, Se regole da applicare cambiano di 
continuo e necessitano in ogni caso di 
una verifica su! calcolatore. 


(LOADING ERROR), è probabile che 
ciò sia causato dalla vicinanza degli appa- 
recchi al televisore Allontanandoli tra 
loro si impedisce ai campi magnetici di 
alcuni TV dì influire negativamente sui 
trasferimento dei dati. 

3 - Se l'allontanamento del registratore 
da ^apparecchio TV non produce alcun 


4 - J programmi che è possibile trascrive- 
re sul vostro calcolatore sono ben specifi- 
cati. I listati “universali riportano, su 
Commodore Computer Club, la dicitura 
"QUALSIASI COMPUTER". E' possi- 
bile, con le dovute eccezioni, adattare 
listati specifici per il Commodore 64 al 
Vie 20, al C- 16 o viceversa. Questa è 


5 - Un’elevata percentuale dei nostri lei 
tori incontra difficoltà nel digitare i pro- 
grammi da noi pubblicati. Riportiamo, 
pertanto, alcune informazioni utili pei la 
digitazione dei listali: i caratteri “speda 
li’" bianchi su fondo nero (semi-grafici in 
“re ver se" 1 ) che rappresentano precisi co- 
mandi per i computer Commodore, sono 
riportati nel listato di esempio nella pagi- 
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BASIC 


na accanto cosi come appaiono digiram 
doli sii video o su stampante, mentre a 
destra come li rappresentiamo nei nostri 
listati. 

La riga 360, ad esempio, deve così es- 
ser interpretata: 

Dopo a ve r battuto il ca ratte re dì virgo- 
lette ( %1 )chc si ottiene premendo il tasto 
SHllH’ insieme con il tasto 2, e necessa- 


rio battere il carattere CRSR DOWN (il 
tasto, cioè, che normalmente spostereb- 
be il cursore nella cella video 
sottostarne). 

Analogamente, nella riga ltffj del lista- 
to "tradotto" (di destra), il termine [NE- 
RO] sta a significare che occorre utilizza- 
re il carattere speciale del colore nero 


(tasto CTRL insieme con il tasto 1. vedi 
listato}. 

Per ricordare in che modo vengono 
normalmente visualizzati i caratteri spe- 
ciali, nella seconda pane di ogni riga { do- 
po i REM) sono riportati i tasti che è 
necessario premere per ottenere ìì 
carattere-comando "speciale". 

La Redazione 


100 REM I CARATTERI SPECIALI 
110 REM DEI COMPUTER COMMODORE 
1E0 REM COME APPAIONO NORMALMENTE 
130 REM SU VIDEO 0 SU CARTA , 

140 REM <CTRL a TASTG CONTROL "> 

150 REM (CMOP - TASTO COMMODORE > 
160 REM £ CRSR = TASTI CURSORE) 


17® 

m 

H 




I 

100 

PRINT"»" 

REM 

CTRL + 1 

NERO 

! 

190 

PRINT"»* 

RPM 

* +E 

BIANCO 

200 

PRINT" 3" 

REM 

14 +3 

ROSSO 


210 

pRINT-k" 

REM 

« +4 

A2ZURR0 

22® 

PRINT*»'' 

REM 

* +5 

PORPORA 


230 

PRINT-ta* 

REM 

11 +6 

VERDE 


340 

PRINT -a” 

REM 

■ +7 

BLU 

1 

250 

PRINT-B* : 

REM 

« +G 

GIALLO 


260 

PR INT' 3* ! 

REM 

- +9 

REVERSE ON 


270 

PR INT"** ! 

REM 

" +0 

REVERSE OFF 


28® 

PR INT’3" : 

REM 

CMOR + 1 

ARANCIO 

1 

l 

290 

PRINT-P* 

[REM 

11 +2 

MAR ROTE 

300 

PRINT-ffl" 

REM 

11 +3 

ROSSO, CHIARO 

31® 

PR int-b- 

REM 

” +4 

GRIGIO 1 

320 

PR INT "3“ ' 

’ REM 

w +5 

GRIGIO £ 

330 

PR !NT" ■}’ 

: REM 

" +6 

VERDE CHIARO 

340 

PPINT'J" 

: REM 

'* +7 

BLU CHIARO 

1 

35® 

PRINT**!* 

: REM 

+e 

GRIGIO 3 

3C8 

PRINT” a* 

: REM 

CRSR 

IN BASSO 

3~8 

PR INT "d* 

: REM 

CRSR, 

A DESTRA 

388 

PRINT - 

: REM 

CRSR 

IN ALTO 

3S0 

PRINT "II" 

: REM 

CRSR 

SINISTRA 

40® 

PR INT*»" 

: REM 

HOME 


4 18 

420 

PRIKT" J" 

# 

t REM 

CANCELLA SCHERMO 


430 

REM ESEMPI 1 

SI VISUAL I22AZ IONE* 


440 

PR1MT"*JÌ 

fi ” "1 

w J 

II* {REM 

CANCELLA SCHERMO t 


453 



REM 

CRSR OLM DUE VOLTE 


46® 

470 



REM 

CRSR DESTRA TRE “ 

i 

1 


430 PR 1MT" ?AHfl” - REM EIANCO^CRSR SINISTRA , 

490 ; 1 REM DUE VOLTE E CRSR DWN | 

^00 - IREM UNA SOLA VOLTA 1 


100 
1 10 
120 
130 
140 
! 50 
ISO 
170 
! 30 
190 
£00 
2 10 

£30 

? 40 
250 
ES0 
270 
230 
230 
300 

3 10 
320 
330 
340 
350 
360 
370 
3S0 
330 
400 

4 10 
420 
430 
440 

450 

480 

470 

48 ® 


REM I CARATTERI 
REM SFECI AL I! COME 
REM VENGONO INDICATI 
REM SULLE RIVISTE: 
REM COMMODORE 
REM E COMMODORE 

REM COMPUTER CLUB * 

■ 

¥ 

PR INT " [NERO 3 H 
PR INT w [BIANCO 3 H 
PR INT" CROSSO 3 " 

r 

PR I NT “ CAZZUR3 " 

PR I NT "EVI OLA 1 " 

PR INT " t VERDE 3 11 
PRINT *■ IBLEU 3 " 

PR INT" IG IALL01 * 

PRINT" IRVS 3 " 

PRINT" IRVOFF 3 " 

PR INT" [ARANC 3 * 

PRINT" IMARA 3 " 

FR INT " IFOBA3 “ 

PR ! NT n [GRIGIO I 3 - 
PP INT” IGR IGI02 3 * 
PRINT 11 [VERDE? 3 n 
PR T MT ' i CELESTE 3 ” 
PRTNT” IGRIGI033 h 
PRINT” IOQ14N3 “ 

PRINT” TR IGHT3 p 
PR INT" CUPI " 

PR TNT" ILEFT] “ 

PRINT" IHOME I * 

PR I NT *1 OLEARI" 

m 

m 

REM ESEMPI 
PRINT- ICLEAR3 IE DONNI 
14 RIGKT3- 
t 


PRINT* [BIANCO 1 CE LEFT 
3 I □ 0 UN 1 " 
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Giorgio Sturies* - Via F, Cnspi 25/4 - 17100 
Savona - tei. 21228, 

Arturo Tonazzl - Via San Giacomo 131 - 
39050 S. Giacomo di Laivcs - tei. 0471/ 
940876, 

Marco Consorti - Via Salvatore Talamo 20 - 
00177 Roma - tei. 06/2591283, 

Antonella Palma * Via* Valiamo 3 - 00141 
Roma, 

Diego Marraffa - Via Ghirlandaio 21 - 34138 
Trieste - tei, 040/945494, 

% 

Francesco Manganelli - Via Mameli 43 - 53100 
Siena - tei. 0577/47510, 

Gianni Mazze*! - Via Ce Ila 329 -48020 Raven- 
na - tei, 0544/66507 oppure 0544/573529. 

Luci* Novellino - Via Risorgimento 27 - 84100 
Salerno, 

Pierangelo Albertini - Via N Bizio 197-37069 
(VR). 

Roberto Maire hegiani - Via Madonna delle 
Carceri 9 - 62032 Camerino - tei. 0737/3198 

Domenico Monaco - Via Cortina d T Ampezzo 
199 - 00135 Roma - tei. 06/3274767, 

Fulvio Ferrini - Via Levane Alta 5 - 52023 
Levane (AR). 

Antonino Mtocmo - Vta F. Baracca 130/A - 
90136 Palermo - tei, 407542. 

Paolo Germani * Via Costalunga 66 - 34137 
Tkste-tel. 941077. 

Maurizio Rocchi - Via Nobile della Croce 1 - 
20020 Magnago (MI) - tei. 03331/657677, 


Marco Vigano - Via Don L, Slurzo 30 - 20010 
Arluno (MI) - tei 02/9017139. 

Lorenzo Paroio - Via Bramante 12 - 27100 
Pavia - tei. 0382/25086-303634, 

Rosario D'agostino * c/o Fam. Arena Via Si- 
bclius Jan 26 - 20162 Milano. 

Marco Sgura - Via [.aviosa 26 - 16156 Pegli 
(GE) - 010/666634. 

Francesco Leovino - Via N. Piccioni 1/A - 
70038 lerlizzi (HA), 

Giorgio Foscili - Vìa Nazionale 1-43040 Pian- 
Ionia (PR) - tei. 0525/3462. 

Giancarlo Balocchi - Via Livorno 36 - 00162 
Roma - 06/426888. 

Ivo Rftlddcchi - Via Mario inai fettoni 17 - 
16151 Genova ■ 010/451426. 


Mario Dì Fazio - Via Umbria is 17 54 - 98100 
Messina - tei. 090/2924384. 

Gabriele Fanelli - Via Carlo Zaccagnini 129 
Roma - tei. 06/6 15 1345. 

Carlo Vincenzi - Via Resistenza 26 - 41033 
Concordia S/S (MO) - tei. 0535/54325. 


Alesata Dorigo - Via Del Pozzo 3 - 33042 But- 
tilo (UD) ■ tei. 0432/674268 

Enrico A n ti no zzi - Corso Europa 26 - 80127 
Napoli. 

Marco Leone * Via Giacomo Corradi 13 - 
OfìlSl Roma - tei. 06/5341402, 

Francesco Spoto - Viale Sardegna 12 - Nuoro - 
tei. 0784/30980, 


Giuseppe Borracci - Via Mameli 15 - 33100 
Udine -tei. 0432/291665. 

Andrea Sa vini - Via Magellano 19 - 52100 
Arezzo « tei. 0575/911982, 

Fabio Mencucci - Via Tiro a Volo 17 - 54036 
Manna di Carrara (MS) - tei. 05885/51572, 

Tullio di Primo - Via Pescara 210 - 66013 

Chieti Se. - tei. 0871/59796, 

Cinzia Ceccarini - Via Di Vittorio 10 - 58022 
Follonica £GR), 

Roberto Pagana ra - Via Paulo Fambri 4 - 
35131 Padova - tei. 049/773743. 

Marco Scatà - VjaS, Freud 62- 96100 Siracusa 
tei. 0931/56672. 

Paolo Uccellatori - Via Vandalico 138 - 10142 
Torino - tei. 011/792574. 

Nicola Matroiacovo - Via 19 St. Da Denomi- 
nare 54 - 64029 Silvi Marina (TE) - tei. 085/ 
932437, 

Luca Longo * Via Mon fa Icone 43 - 13100 Ver- 
celli - tei, 0161/392675. 

Massimo Stortimi - Via Pellegrino Matteucci 
118 - 00154 Roma - tei. 06/5777064, 

Roberta Peitnotino - Via Sampolo 486 - 901+3 
Palermo -tei 091/363600. 

Roberto Cavarero - Via Cuneo 5 - 10100 Setti- 
mo Torinise - tei, 81)04236, 

Riccardo Giuliani - Via Val di Olienti 79 - 
00141 Roma. 

Paolo Ctary - Via Ponti Rossi 37 - 8013! Napo- 
li - tei. 081/7413749. 
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Rocco De Franco - Via Asiago 3 * 39010 Ba- 
gnar* Cat - tei. 0966/371875. 

Gianfranco Fumagalli - Via Luigi Ornato 7 - 

20162 Milano * tei. 02/6439593, 

Gianni Mazzesi - Via Cella 329 S. Stefano 

(RA)- tel, 0544/573529. 

* 

Massimo Carraro - Via Maurizio Ravel 10 - 
35100 Padova - tei, 618431, 

Michel Bau m partner - Via Des Alpes 43 ■ 
68270 Wittenheim France - tei, 003389/ 
537393. 

Alberto Cristofari - Via Pastoris 94 * 13043 
Cigliano (VC) - tei. 0161/44263 

Daniele Cafaifa - Via M S del Monte 60 - 17049 
Zlnola (5V) - tei. 019/862566 


Gerardo Nauta - Via Monte bianco 27 - 00058 
S. Mari nella (RM) ■ tei. 0766/736062 

Fabrizio SJvferi - Via Pioppelle 5 - 44036 Fer- 
rara - tei 724623 


Stefano Sala * Via Bollitoria Ini. 169 41012 
Carpi (MG) - tei. 059/692979 

Giulio Vìscogfiosi * Via Tuscolana 1X52 - Via 
00174 Roma - tei. 06/7491440 

Giuseppe Tilgher - Via Bovio 385 - 65100 Pe- 
scara - tei. 085/75081 

Massimo Pavì - Via Piave 2 - 46031 Ostigli* - 
tei. 0386/32175 

Eddy PdJizjwri * Via Roma 118 - 32010 Forto- 
gna (RL) - td, 0437/771022 


Luciano Pugnili - Via Castello 2084 - 30122 
Venezia - td. 041/700486 

Massimo Fichrtti - Via delle Canarie 18 - 
00121 Ostia Udo (Roma) - tei, 06/5693400 

ri 

Simone Lucchi - Via Bemi 18 - 37 122 Verona - 
td, 045/28623 

Armando Russo - Via Montanaro 17/B - 10034 
Chivasso - teL 9109760 

Omar Marinelli - Vìa Domenico Cirillo 16 - 
20100 Milano - tei. 02/383910 

Stefano Baldoni - Via delia Magliari* 277 - 
00146 Roma - teL 06/5271210 

Alessandro Scarna - Via Manincngo 27 - 
20139 Milano - td. 02/5690422 


ATTENZIONE!!! 


A tutti I 

Commodore Computer Club 

Come farsi conoscere attraverso 
le pagine della nostra rivista. 

Molti circoli si sono aperti e molti sono usciti allo "scoperto" dopo il nostro invito ad aprire un Computer Club, apparso sul N, 21 di C.C,C. 

Allo scopo di rendere um servizio migliore ai nostri lettori che intendano contai tare uno di questi simpatici circoli culturali* i segretari dei circoli 
stessi sono pregati di compilare il seguente tagliandolo sua fotocopia, c di inviarlo io busta chiusa (affrancata secondo le vigenti tariffe postali) a: 

Systems Editoriale 
Servizio Notizie Computer Club 
Viale Famagosta, 75 
Milano 

La completa compilazione dell'intera scheda, t INDISPENSABILE per la pubblicazione gratuita sulla nostra rivista. 


hfome del club, .... 

n P n r in,-, , - r r , , ■ fa ,4 , h 

Presidente ■ ..n*,.. 

N, di soci finora iscritti: ..... 

Orario di apertura: 

Perìferìchédaponibili(spedfkare); 

Videogiochi N.: .......... 

N, abbonamenti a riviste italiane: ...... 

(Specificare se annuale, mensile eoe.) .« 
Attività previste : 

Eventuali sponsor: , 


p ri 9 ppìi-Hs 


i II mi ■■■ ■ Se de de I dtlbv 4. a a 4 a h 4 ■ * m mmu mm ■■■ Vli^j i H)i ié H H itl-lf Ufi Iti ■ 

Prov P : „ fc++B+ . ++ ,„, — ». Tel Prefisso: ..... .N* 

■ * r -i - + 9 B-P-. FTH + -T ■* + + -»■ + S + ■•» + ■•■■* ■ ■■■-■■ ■ W ■ B ■ soci fondatori: ..... 

Data di fondazione: ... Giorni di apertura della sede: 

, Computerà disponibili (specificare): 

...... Programmi disponibili (N. approssimativo): ...... 

, Professionali N.: Biblioteca tecnica N. volumi: 

........... N. abbonamenti a riviste straniere: Quota di iscrizione L 




. Bollettino periodico emesso: Attività già svolte: 

Disponibilità alla sponsorizzazione (sì/no): 


H sottoscritto presidente del Computer Club .. autorizzo la Systems Editoriale a diffondere notizie riguardanti 

le attività del circolo culturale citato anche se pervenute in redazione in via non ufficiale. 

Dichiaro inoltre che le informazioni comunicate corrispondono al vero e che, in caso di difformità accertata da parte di incaricati della Systems 
stessa, Commodore Computer Club, allo scopo di tutelare la buona fede degli utenti della rivista, si riserva il diritto - dovere dì avvertire i propri 
lettori nel modo e nella forma che riterrà più opportuni. 

In fede 
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Registrate ìt mio abbonamento annuale a Commodore Computer Club, 

' 

■ 

s, [ Ho versato oggi stesso il canone di L 28 000 a mezzo eie postale n D 37952207 intestato 

m ^ 

m Systems Editoriale - VJe Famagosta, 75 - 20142 Milano 

m 

U Ho inviato oggi stesso assegno bancario n. ,, — . , lt , 1T ........ 

& per i "importo di L 28,000 intestato a Systems Ed i toriate 

b Si prega di scrivere il proprio nome e l'indirizzo completo in modo chiaro e leggibile. Inviare 
m la fotocopia del bollettino di c/e postale. 



■ 

■ 

J 


Considerando che i numeri 1 . 2 e 7 sono esauriti, vogliate inviarmi 3 numeri arretrati 

al prezzo di L. 5.000 cadauno pei richieste fino a 4 numeri, o di L 4.000 cadauno per 
neh ieste oltre i 4 n umeri a metta ti, e Perciò per un totale di L Sono a conoscenza eh e 

i fàsdofi suddetti non saranno inviati in contrassegno e. pertanto, ho provveduto oggi stesso 

a versare il canone di I . a mezzo c/c postale n, 37952207 intestato a: 

Systems Editoriale - V.le Famagosta, 75 - 20142 Milano 


H 

STATISTICA 

st Non posseggo un computer 

■ Posseggo un 064 J sin ... noG 

■ Posseggo un V1C 20 sìD ... noD 

■ Posseggo un Commodore Plus 14 ...... , siD noD 

» Posseggo un Commodore Plus 16 siQ ... noG 

® Posseggo un registratore dedicato , si .! ... no: 

■ Posseggo un drive 1541 .... . . . . sin .. noG 

® Posseggo una stampante * si D no G 

iffl Posseggo un monitor si — . , , no 




m 

m 


COLLABORAZIONE 

A titolo di prova vi invio un articolo e ta cassetta ........... .disco..... 

col programma che intendo proporre per la pubbiieazione di cui garantisco l'originalità. 


ti C3 j 1 I tè' >• , i. ............. , ....... . , 

i a a ■ la i a j i a a ■ i i ■ J ■ |; B a m i ■ ■ * ■ a t a ■ a i • ■ a u « * a ■ a ■ ■ i a a ■ r ■ ina ■ ■ ■ a ■ i ■ j t ■ a a a ■ a m m a a a » a a m i ». i i * ■ ■ a . * ■ ■ a Va ■ * u ■ a ■ a * m m 4 (. ■ a « i * . j m i. a - a * a - 4 ■ - * •* ■ * 4 * * * * 9 ■ * 9 ■ ■* * -* - + *■ - < 

a ■ a 1 a a ra a ,1 ibi i a 1 a a ■■ a a 1 ■ a ■ ■ a ai pai a a a a-a > - tali pan ai a a i ira 1 a a ■ i ■ r • 1 r a a ir jb rasai a. a a i Bl 1 i aa a ■ a a a a a a a a. a a a a 1 ■ BJanaai ia a ■ ■ a a a . - a ■■ a a d 1 a a ■ agi 1 1 a 1 a ■ t 4. a ,i i a - i ■ _ . 

* .... 

p - Ir- . - -it " + “ 4 ■* • - - ■ * - - - • - - 1 -M ► - r 1 + + t Miil P-if i - 'ttiTi •iMm9UflBiiiir«iiii 

S 





GIUDIZIO SUt PROGRAMMI DI QUESTO NUMERO 


Ho assegnato un voto da 0 a 10 ai programmi che ìndico di seguito: 








INVIARE IN BUSTA 
CHIUSA E AFFRANCANDO 


SECONDO LE TARIFFE VIGENTI A: ; 

COMMODORE COMPUTER CLUB » 

V T v t * • ' ’ • » • 1 -/*. f _ ri ’ - ' ' 

V.le Famagosta, 75 
20142 Milano 
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INVIARE TUTTA LA PAGINA ANCHE SE SI UTILIZZA UNA SOLA SCHEDA 






Ma chi fha detto 
che a 16 anni non si può 
avere il massimo? 



■* 

ALETTA ORO la più potente 




WMX CROSS la più aggressiva 


ALETTA ROSSA la più elegante 


ELEFANT la più richiesta 


k. 


ALETTA ELECTRA la più simpatica 






